Metrics for b from scale-rotated-ellipse

start0.0ms (0%)

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

analyze1.8s (4.2%)

Memory

16.3MiB live, 1 714.4MiB allocated; 916ms 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)

sample16.4s (38.2%)

Memory

272.5MiB live, 17 290.9MiB allocated; 4.4s collecting garbage

Samples

7.1s	2 636×	3	valid
4.4s	2 666×	2	valid
3.1s	2 918×	1	valid
63.0ms	17×	4	valid
6.0ms	19×	0	valid

Precisions

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

ival-sinu: 2.5s (18.5% of total)

ival-pow2: 2.2s (16% of total)

ival-cosu: 2.1s (15% of total)

ival-mult: 2.0s (14.4% of total)

adjust: 1.7s (12.4% of total)

ival-div: 1.7s (12.1% of total)

ival-add: 542.0ms (4% of total)

ival-sqrt: 495.0ms (3.6% of total)

ival-sub: 370.0ms (2.7% of total)

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

exact: 9.0ms (0.1% of total)

ival-true: 6.0ms (0% of total)

ival-assert: 4.0ms (0% of total)

Bogosity

explain2.6s (6%)

Memory

-17.8MiB live, 3 665.4MiB allocated; 317ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
171	-	1	(6791099913988451.0 4.865059661272626e-215 4.060336256603075e-244 5.402846049631824e-141 1.0562537391980202e+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)) (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)))))
166	-	2	(1.9445900009890926e-149 2.6500330530014385e+66 -8.142594531988944e-24 -1.0840536425836517e-44 9.029270558730668e+24)	(/.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))))
139	-	0	-	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`
139	-	0	-	`(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`
71	-	2	(4.080232193629436e-240 -1.6764960544472697e+94 8.085580767767261e+71 -2.1333709088638172e-39 -2.7806234831490985e-120)	`(/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))`
45	-	1	(-6.477650956840352 -1.4562511151573084e-62 -3.970088557675831e-255 1.4341417089659414e+202 -1.4804437245877812e+80)	(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))))
44	-	3	(-1.3991292450347558e-156 6.512397338845387e+147 -3.3974612798453623e-81 4.049393302150625e-13 0.02971185211941918)	(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)))))))
43	-	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	-	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`
31	-	0	-	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`
31	-	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))))`
28	-	2	(-7.450277824801189e+136 -1.1569649647174941e-92 -9.862629428667602e-42 -7.004666387343887e-107 -3.9343782612262056e+105)	(.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))))))
27	-	0	-	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`
24	-	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)`
22	-	1	(3.0111659263019624e+130 4.4140839942877747e-290 -8.920150424235503e-210 -1.1991128894046298e-231 4.3925523571837705e-16)	`(.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))))`
18	-	0	-	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`
14	-	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)`
9	-	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)`
0	-	0	-	`x-scale`
0	-	0	-	`(*.f64 b a)`
0	-	0	-	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	-	0	-	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	-	0	-	`(.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
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	-	`(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))`
0	-	0	-	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`
0	-	0	-	`(*.f64 x-scale y-scale)`
0	-	0	-	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`
0	-	0	-	`(*.f64 b (neg.f64 a))`
0	-	0	-	`(pow.f64 b #s(literal 2 binary64))`
0	-	0	-	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
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	-	`(neg.f64 a)`
0	-	0	-	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`
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	-	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	-	`#s(literal 180 binary64)`
0	-	0	-	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
0	-	0	-	`angle`
0	-	0	-	`#s(literal 2 binary64)`
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	-	`(.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
0	-	0	-	`b`
0	-	0	-	`a`
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	-	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	-	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	-	0	-	`(pow.f64 a #s(literal 2 binary64))`
0	-	0	-	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	-	0	-	`(PI.f64)`
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	-	`(/.f64 angle #s(literal 180 binary64))`
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	-	`#s(literal 4 binary64)`
0	-	0	-	`y-scale`
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	144	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	94
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	93
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	67
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	35
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	87
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	82
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	83
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	90
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	78
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	93
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	179
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	94
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	179
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	83
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	73
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	90
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	67
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	60
↳	(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	144
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	87
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	35
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	124
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	87
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	82
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
`sin.f64`	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	sensitivity	139	0
`cos.f64`	`(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	sensitivity	139	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	77	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	113
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	150
↳	(.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	142
↳	`(*.f64 b a)`	underflow	40
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	22
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(*.f64 b (neg.f64 a))`	underflow	40
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	80
↳	`(.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	96
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	78
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	26
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	11
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	31
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	30
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	112
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	44
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	(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	17
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	34
↳	(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	113
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(*.f64 x-scale y-scale)`	underflow	34
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	182
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	58
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	38
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	146
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(.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	83
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	176
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	78
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	`(/.f64 (.f64 #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	83
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	26
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
↳	`(*.f64 b a)`	underflow	20
↳	`(*.f64 b (neg.f64 a))`	underflow	20
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(*.f64 x-scale y-scale)`	underflow	34
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	73
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(/.f64 (.f64 #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	83
`/.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	58	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	63
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	78
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	179
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	(.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	75
↳	`(*.f64 b a)`	overflow	58
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	78
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(*.f64 b (neg.f64 a))`	overflow	58
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	188
↳	`(.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	94
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	186
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	179
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	166
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	73
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	180
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	134
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	120
↳	(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	144
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	87
↳	(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	63
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	70
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	124
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	174
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	148
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(.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	76
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	164
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
↳	`(/.f64 (.f64 #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	76
↳	`(*.f64 b a)`	overflow	29
↳	`(*.f64 b (neg.f64 a))`	overflow	29
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	74
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(/.f64 (.f64 #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	76
`-.f64`	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	43	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	94
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	60
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	87
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	82
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	93
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	67
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	35
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	83
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	90
`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	35	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	78
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	93
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	179
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	94
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	179
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	83
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	73
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	90
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	67
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	60
↳	(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	144
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	87
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	35
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	124
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	87
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	82
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
`*.f64`	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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**	29	0
`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	29	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	113
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	150
↳	(.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	142
↳	`(*.f64 b a)`	underflow	40
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	22
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(*.f64 b (neg.f64 a))`	underflow	40
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	80
↳	`(.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	96
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	78
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	26
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	11
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	31
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	30
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	112
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	44
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	(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	17
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	34
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(*.f64 x-scale y-scale)`	underflow	34
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	182
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	58
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	38
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	146
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(.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	83
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	176
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	78
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	`(/.f64 (.f64 #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	83
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	26
↳	`(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	27	0
↳	`(*.f64 b a)`	overflow	29
↳	`(*.f64 b (neg.f64 a))`	overflow	29
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	74
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(*.f64 x-scale y-scale)`	overflow	41
`/.f64`	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	27	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	90
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	67
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	35
`-.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	26	1
`/.f64`	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	26	0
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	60
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	87
↳	`(pow.f64 (.f64 a (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	24	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	78
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
`/.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	20
↳	`(*.f64 b (neg.f64 a))`	underflow	20
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	73
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(*.f64 x-scale y-scale)`	underflow	34
`*.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**	20	0
↳	`(*.f64 b a)`	overflow	58
↳	`(*.f64 b (neg.f64 a))`	overflow	58
↳	`(.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	94
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	148
↳	`(/.f64 (.f64 #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	76
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(.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	76
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	22
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	78
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	150
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	80
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	26
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	11
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	31
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	30
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	112
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	44
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	(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	17
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	34
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	182
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	58
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	38
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	176
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	78
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	26
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
`/.f64`	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	18	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	78
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	73
`-.f64`	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	nan-rescue	18	0
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
`/.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	15	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	113
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	150
↳	(.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	142
↳	`(*.f64 b a)`	underflow	40
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	22
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(*.f64 b (neg.f64 a))`	underflow	40
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	80
↳	`(.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	96
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	78
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	26
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	11
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	31
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	30
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	112
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	44
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	(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	17
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	34
↳	(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	113
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(*.f64 x-scale y-scale)`	underflow	34
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	182
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	58
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	38
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	146
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(.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	83
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	176
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	78
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	50
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	`(/.f64 (.f64 #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	83
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	26
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
`/.f64`	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	13	0
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	60
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	87
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	82
`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	63
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	78
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	179
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	(.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	75
↳	`(*.f64 b a)`	overflow	58
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	78
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(*.f64 b (neg.f64 a))`	overflow	58
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	188
↳	`(.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	94
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	186
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	179
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	166
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	73
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	180
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	134
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	120
↳	(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	144
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	87
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	70
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	124
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	174
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	148
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(.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	76
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	164
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
↳	`(/.f64 (.f64 #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	76
`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	9	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	22
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	39
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	40
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	26
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	25
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	11
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	31
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	15
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	56
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	22
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	64
↳	(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	17
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	34
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	91
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	58
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	19
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	88
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	39
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	25
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	26
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	9
`/.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	8	0
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	67
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	35
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	83
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	90
`/.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	7	0
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(*.f64 x-scale y-scale)`	overflow	41
`/.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	7	0
↳	`(*.f64 b a)`	overflow	29
↳	`(*.f64 b (neg.f64 a))`	overflow	29
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	74
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(/.f64 (.f64 #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	76
`*.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	29
↳	`(*.f64 b (neg.f64 a))`	overflow	29
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	74
↳	`(/.f64 (.f64 #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	76
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(.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	76
↳	`(*.f64 b a)`	underflow	20
↳	`(*.f64 b (neg.f64 a))`	underflow	20
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	73
`*.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**	6	0
↳	`(*.f64 b a)`	underflow	20
↳	`(*.f64 b (neg.f64 a))`	underflow	20
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(*.f64 x-scale y-scale)`	underflow	34
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	73
↳	`(/.f64 (.f64 #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	83
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(.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	83
↳	`(*.f64 b a)`	overflow	29
↳	`(*.f64 b (neg.f64 a))`	overflow	29
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	74
`/.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	5	0
↳	`(*.f64 b a)`	overflow	29
↳	`(*.f64 b (neg.f64 a))`	overflow	29
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	74
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
`/.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	5	0
↳	`(*.f64 b a)`	underflow	20
↳	`(*.f64 b (neg.f64 a))`	underflow	20
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(*.f64 x-scale y-scale)`	underflow	34
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	73
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
↳	`(/.f64 (.f64 #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	83
`/.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	5	0
↳	`(*.f64 b a)`	underflow	20
↳	`(*.f64 b (neg.f64 a))`	underflow	20
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	73
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	73
`*.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 2 binary64) (/.f64 (.f64 #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**	4	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)`	u/n	4	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	15
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	56
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	91
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	39
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`/.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	4	0
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	68
↳	`(*.f64 x-scale y-scale)`	underflow	34
`*.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**	3	0
`*.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**	3	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)`	u/n	3	0
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	22
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	64
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	19
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	88
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`/.f64`	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	2	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	22
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	11
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`/.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	2	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	63
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	78
↳	(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	179
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	17
↳	(.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	75
↳	`(*.f64 b a)`	overflow	58
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 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	78
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(*.f64 b (neg.f64 a))`	overflow	58
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	188
↳	`(.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	94
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	186
↳	(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 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	179
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	166
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	73
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	180
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	144
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	134
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	84
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	120
↳	(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	144
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	87
↳	(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	63
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	78
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(*.f64 x-scale y-scale)`	overflow	41
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	70
↳	`(pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(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	124
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	174
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	148
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	74
↳	`(.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	76
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	164
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
↳	`(/.f64 (.f64 #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	76
`/.f64`	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.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	2	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	22
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	11
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.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	22
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	64
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	56
↳	`(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	11
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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	31
`/.f64`	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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	1	0
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	22
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	64
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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	19
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	88
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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	25
↳	`(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**	1	0
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	109
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	109
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	67
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3

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	16
2	29
3	58
4	56
5	53
6	24
7	12
8	5
9	3

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

467.0ms	170×	3	valid
285.0ms	170×	2	valid
202.0ms	168×	1	valid
6.0ms	2×	4	valid
1.0ms	2×	0	valid

Compiler

Compiled 3 413 to 172 computations (95% saved)

Precisions

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

ival-mult: 161.0ms (19.6% of total)

ival-sinu: 157.0ms (19.1% of total)

ival-cosu: 145.0ms (17.7% of total)

ival-pow2: 112.0ms (13.6% of total)

adjust: 95.0ms (11.6% of total)

ival-div: 74.0ms (9% of total)

ival-add: 24.0ms (2.9% of total)

ival-sqrt: 21.0ms (2.6% of total)

ival-sub: 19.0ms (2.3% of total)

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

ival-pi: 2.0ms (0.2% of total)

ival-true: 1.0ms (0.1% of total)

exact: 1.0ms (0.1% of total)

ival-assert: 0.0ms (0% of total)

preprocess213.0ms (0.5%)

Memory

28.9MiB live, 306.9MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	544	3725
1	1493	3584
2	6868	3584
0	56	183
0	104	183
1	184	181
2	658	180
3	6023	178
0	8395	173

Stop Event

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

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

Outputs

(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))

(/.f64 (sqrt.f64 (*.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (/.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) (*.f64 y-scale x-scale)) (*.f64 (*.f64 (fma.f64 (neg.f64 a) a (*.f64 b b)) #s(literal 2 binary64)) (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 b b) a) a) (*.f64 (*.f64 (*.f64 b b) a) a)) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)))) (*.f64 (*.f64 #s(literal -4 binary64) (*.f64 (*.f64 b b) a)) (/.f64 (neg.f64 a) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))

Symmetry

(abs y-scale)

(abs x-scale)

(abs b)

(abs a)

Compiler

Compiled 183 to 56 computations (69.4% saved)

eval0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

1.7MiB live, 1.6MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

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

Compiler

Compiled 183 to 56 computations (69.4% saved)

simplify163.0ms (0.4%)

Memory

-15.1MiB live, 223.7MiB allocated; 28ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	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))))
cost-diff	2	(.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))))
cost-diff	2	(.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))))
cost-diff	5	(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))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	56	1613
0	104	1613
1	184	1601
2	658	1600
3	6023	1590
0	8395	1560

Stop Event

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

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

localize658.0ms (1.5%)

Memory

35.9MiB live, 962.9MiB allocated; 118ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	30.59884482321129	(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
accuracy	30.865140166238902	(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
accuracy	39.28950230464011	(/.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))))
accuracy	40.148356320274	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))

Samples

245.0ms	85×	3	valid
174.0ms	85×	2	valid
87.0ms	84×	1	valid
3.0ms	1×	4	valid
0.0ms	1×	0	valid

Compiler

Compiled 1 615 to 58 computations (96.4% saved)

Precisions

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

adjust: 73.0ms (18.1% of total)

ival-sinu: 59.0ms (14.6% of total)

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

ival-pow2: 55.0ms (13.6% of total)

ival-mult: 54.0ms (13.4% of total)

ival-add: 42.0ms (10.4% of total)

ival-div: 36.0ms (8.9% of total)

ival-sqrt: 11.0ms (2.7% of total)

ival-sub: 9.0ms (2.2% of total)

ival-neg: 4.0ms (1% of total)

ival-pi: 1.0ms (0.2% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

series445.0ms (1%)

Memory

22.8MiB live, 514.4MiB allocated; 136ms collecting garbage

Counts

7 → 131

Calls

Call 1

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

Outputs
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* 1/2 (/ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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))))

Calls

15 calls:

Time	Variable		Point	Expression
77.0ms	a	@	0	((sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 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)))) (cos (* (/ angle 180) (PI))) (sin (* (/ angle 180) (PI))))
77.0ms	x-scale	@	0	((sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 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)))) (cos (* (/ angle 180) (PI))) (sin (* (/ angle 180) (PI))))
32.0ms	a	@	inf	((sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 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)))) (cos (* (/ angle 180) (PI))) (sin (* (/ angle 180) (PI))))
28.0ms	b	@	inf	((sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 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)))) (cos (* (/ angle 180) (PI))) (sin (* (/ angle 180) (PI))))
22.0ms	x-scale	@	inf	((sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 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)))) (cos (* (/ angle 180) (PI))) (sin (* (/ angle 180) (PI))))

simplify829.0ms (1.9%)

Memory

-168.3MiB live, 700.8MiB allocated; 963ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1376	95781
1	4519	94047
0	9586	91364

Stop Event

1×	iter limit
1×	node limit

Counts

131 → 131

Calls

Call 1

Inputs
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* 1/2 (/ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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))))

Outputs
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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))) #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))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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))) #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))) (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))))) (.f64 a a) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a)) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) #s(literal -1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (.f64 a a) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 a a) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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)))) #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))) (* (* b a) (* b (neg a)))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 8 binary64)))
#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 (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 a a) (/.f64 (.f64 b b) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))) #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))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))))) #s(literal 1/8 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) x-scale)) #s(literal 1/8 binary64))) (.f64 a a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))))) (.f64 a a) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) x-scale)) #s(literal 1/8 binary64))) (.f64 a a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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)))) #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)))) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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)))) #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)))) (fma.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 a a) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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)))) #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)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a a) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (.f64 a a) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a)) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (.f64 a a) (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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))) #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))) (.f64 (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 a a)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 a a)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a)) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 a #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 a a)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (pow.f64 a #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a)) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 a #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (*.f64 a a)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) a)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) a) (/.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 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 (* 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))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 a #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) a) (/.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 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 (* 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (fma.f64 (.f64 (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (/.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (pow.f64 a #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 a #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) a) (/.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 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)))) #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)))) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 a 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 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)))) (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (-.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 a 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 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)))) (.f64 (-.f64 (fma.f64 (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 a #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 a 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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (pow.f64 a #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a)) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 a #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 a a)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) a)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) a) (/.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (neg.f64 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 (* 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))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 a #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) a) (/.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (neg.f64 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 (* 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (fma.f64 (.f64 (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (/.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (pow.f64 a #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 a #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) a) (/.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (neg.f64 a)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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))) #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))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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))) #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))) (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))))) (.f64 b b) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b)) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) #s(literal -1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (.f64 b b) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 b b) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))))) #s(literal 1/8 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) x-scale)) #s(literal 1/8 binary64))) (.f64 b b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))))) (.f64 b b) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) x-scale)) #s(literal 1/8 binary64))) (.f64 b b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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)))) #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)))) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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)))) #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)))) (fma.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (.f64 b b) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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)))) #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)))) (fma.f64 (fma.f64 (.f64 (.f64 b b) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (.f64 b b) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b)) (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (.f64 b b) (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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))) #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))) (.f64 (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 b b)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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))) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 b b)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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))) (.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b)) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 b b)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b)) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (*.f64 b b)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) b)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) b) (/.f64 (.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) b))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 b #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) b) (/.f64 (.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) b))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (fma.f64 (.f64 (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (/.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 b #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) b) (/.f64 (.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 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 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)))) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 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)))) #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)))) (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (-.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) b) (/.f64 (.f64 a a) b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 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)))) #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)))) (.f64 (-.f64 (fma.f64 (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) b) (/.f64 (.f64 a a) b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64)))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) b) (/.f64 (.f64 a a) b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 b b)) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 b b)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) b)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))) (.f64 (neg.f64 b) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) b) (/.f64 (.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))) (.f64 (neg.f64 b) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 b #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) b) (/.f64 (.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (neg.f64 b) (fma.f64 (.f64 (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (/.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) #s(literal -1/2 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 x-scale (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))) (pow.f64 b #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 y-scale x-scale) b) (/.f64 (.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))))))) (sqrt.f64 #s(literal 8 binary64))) b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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))) #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))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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))) (fma.f64 (.f64 (.f64 angle angle) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) #s(literal 1/2 binary64) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 angle angle) (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (.f64 angle angle) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (fma.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/102036672000000 binary64) (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 a a))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (.f64 angle angle) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (.f64 angle angle) (.f64 (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64))) (.f64 angle angle) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (/.f64 #s(literal 1/8 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (fma.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 (/.f64 #s(literal -1/3149280000 binary64) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) x-scale) (+.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) x-scale) (/.f64 (.f64 b b) x-scale)))) (fma.f64 (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) #s(literal 2 binary64)) a) (/.f64 (.f64 y-scale y-scale) a)))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) a))) (.f64 angle angle) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (fma.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (-.f64 (fma.f64 (/.f64 #s(literal -1/3149280000 binary64) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) x-scale) (+.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) x-scale) (/.f64 (.f64 b b) x-scale)))) (fma.f64 (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) #s(literal 2 binary64)) a) (/.f64 (.f64 y-scale y-scale) a))))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) y-scale) (/.f64 (.f64 a a) y-scale) (+.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 a a))) (.f64 x-scale x-scale)) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) y-scale) (/.f64 (.f64 b b) y-scale)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))))) #s(literal 2 binary64)) (/.f64 (-.f64 (fma.f64 (/.f64 #s(literal -1/3149280000 binary64) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) x-scale) (+.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) x-scale) (/.f64 (.f64 b b) x-scale)))) (fma.f64 (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) #s(literal 2 binary64)) a) (/.f64 (.f64 y-scale y-scale) a))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (fma.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/102036672000000 binary64) (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 a a))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) a))) (.f64 angle angle) (.f64 (/.f64 #s(literal 1/8 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) (sqrt.f64 #s(literal 8 binary64)))) a))) (.f64 angle angle) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 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)))) #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)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) (.f64 angle angle) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (*.f64 a a) y-scale))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))) (fma.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale) (.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (-.f64 (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (fma.f64 (-.f64 (fma.f64 (/.f64 #s(literal -1/3149280000 binary64) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) x-scale) (+.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) x-scale) (/.f64 (.f64 b b) x-scale)))) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64))) (.f64 angle angle) (.f64 (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) y-scale) (/.f64 (.f64 b b) y-scale)) #s(literal 1/32400 binary64)))) (.f64 (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64)))) (.f64 angle angle))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale) (.f64 (-.f64 (fma.f64 (/.f64 #s(literal -1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) y-scale) (+.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (fma.f64 (/.f64 #s(literal 1/32400 binary64) y-scale) (/.f64 (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) y-scale) (.f64 (-.f64 (fma.f64 (/.f64 #s(literal -1/3149280000 binary64) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) x-scale) (fma.f64 (/.f64 #s(literal -1/3149280000 binary64) y-scale) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) y-scale) (fma.f64 (-.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) y-scale) (/.f64 (.f64 a a) y-scale) (+.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 a a))) (.f64 x-scale x-scale)) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) y-scale) (/.f64 (.f64 b b) y-scale)))) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (fma.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/102036672000000 binary64) (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 a a))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 b b) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (.f64 (.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64))) (.f64 angle angle) (fma.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 a a)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 b b)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (fma.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64))) (.f64 angle angle))))) (.f64 (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) b) (.f64 (PI.f64) b)) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) a) (.f64 (PI.f64) a)))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 2 binary64) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1/8100 binary64))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) #s(literal 1/2 binary64))) (.f64 angle angle))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 1))
#s(approx (cos (* (/ angle 180) (PI))) #s(literal 1 binary64))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* (/ angle 180) (PI))) (fma.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (*.f64 (PI.f64) (PI.f64)) #s(literal 1 binary64)))
#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))) (fma.f64 (fma.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)))) (*.f64 angle angle) #s(literal 1 binary64)))
#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 (cos (* (/ angle 180) (PI))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24488801280000000 binary64) (.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)))) (.f64 angle angle) (.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)))) (*.f64 angle angle) #s(literal 1 binary64)))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))
#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))) (.f64 (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/180 binary64) (PI.f64))) angle))
#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))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/22674816000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) #s(literal -1/34992000 binary64))) (.f64 angle angle) (.f64 #s(literal 1/180 binary64) (PI.f64))) angle))
#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 (sin (* (/ angle 180) (PI))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/30855889612800000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) #s(literal 1/22674816000000 binary64))) (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) #s(literal -1/34992000 binary64))) (.f64 angle angle) (.f64 #s(literal 1/180 binary64) (PI.f64))) angle))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (+.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale)))) (sqrt.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (+.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale)))) (sqrt.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 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))) #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))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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))) (/.f64 (fma.f64 (.f64 (.f64 x-scale x-scale) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))))) #s(literal 1/2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 x-scale x-scale) (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))))) (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (.f64 x-scale x-scale)) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 3 binary64))) #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))) (.f64 x-scale x-scale) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))) (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))) x-scale))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(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))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 3 binary64)))) #s(literal -1/4 binary64))) (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))) (.f64 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))) #s(literal -1/16 binary64))) (.f64 x-scale x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 b b)))) #s(literal 1/2 binary64)))))) x-scale))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 #s(literal 1/16 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 3 binary64)))) #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (fma.f64 (.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 3 binary64)))) #s(literal -1/4 binary64))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))))) #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 4 binary64)))) #s(literal -1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))))) (.f64 x-scale x-scale) (.f64 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))) #s(literal -1/16 binary64))) (.f64 x-scale x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 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)))) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/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)))) #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)))) (fma.f64 (.f64 (.f64 x-scale x-scale) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))))) #s(literal -1/2 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 b b)))) #s(literal 1/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)))) #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)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (.f64 x-scale x-scale)) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 3 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))))) (.f64 x-scale x-scale) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 b b)))) #s(literal 1/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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (fma.f64 (.f64 (.f64 x-scale x-scale) (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 4 binary64)))) #s(literal -1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))))) #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 3 binary64)))))) (.f64 x-scale x-scale) (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))))) (.f64 x-scale x-scale) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/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))) #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))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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))) #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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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))) #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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (.f64 x-scale x-scale)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/4 binary64) (pow.f64 x-scale #s(literal 6 binary64))) (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (.f64 x-scale x-scale)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 x-scale x-scale)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (*.f64 y-scale y-scale))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 #s(literal 1/16 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) #s(literal -1/4 binary64)))) (pow.f64 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 x-scale x-scale)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) #s(literal -1/4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))) #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) #s(literal -1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) #s(literal -1/2 binary64)))) (pow.f64 x-scale #s(literal 6 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (fma.f64 (/.f64 #s(literal 1/16 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) #s(literal -1/4 binary64)))) (pow.f64 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 x-scale x-scale)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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)))) #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)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.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)))) #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)))) (/.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 x-scale x-scale))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.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)))) #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)))) (/.f64 (-.f64 (fma.f64 (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 3 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 x-scale #s(literal 4 binary64)))) #s(literal 1/4 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 #s(literal 1/2 binary64) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) #s(literal -1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))) (-.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 3 binary64))) (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.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))) #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))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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))) #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))) (/.f64 (fma.f64 (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))))) #s(literal 1/2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.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))) #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))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 y-scale y-scale) (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))))) (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b)))) (.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))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (.f64 y-scale y-scale)) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 3 binary64))) #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))) (.f64 y-scale y-scale) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))) (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b)))) (.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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/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))))))) (/ (* 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))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 3 binary64)))) #s(literal -1/4 binary64))) (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))) (.f64 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))))) #s(literal -1/16 binary64))) (.f64 y-scale y-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 a a)))) #s(literal 1/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))))))) (/ (* 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (fma.f64 (/.f64 #s(literal 1/16 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 3 binary64)))) #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))) (.f64 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (fma.f64 (.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 3 binary64)))) #s(literal -1/4 binary64))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))))) #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 4 binary64)))) #s(literal -1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))))))) (.f64 y-scale y-scale) (.f64 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64)))))) #s(literal -1/16 binary64))) (.f64 y-scale y-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 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)))) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/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)))) #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)))) (fma.f64 (.f64 (.f64 y-scale y-scale) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))))) #s(literal -1/2 binary64) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 a a)))) #s(literal 1/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)))) #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)))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (.f64 y-scale y-scale)) (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 3 binary64))) #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))))) (.f64 y-scale y-scale) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 a a)))) #s(literal 1/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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (fma.f64 (fma.f64 (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 4 binary64)))) #s(literal -1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))))) #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 3 binary64)))))) (.f64 y-scale y-scale) (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))))) (.f64 y-scale y-scale) (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/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))) #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))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (.f64 y-scale y-scale)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/4 binary64) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 3 binary64))) (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))) (pow.f64 y-scale #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (.f64 y-scale y-scale)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 y-scale y-scale)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (fma.f64 (/.f64 #s(literal 1/16 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 3 binary64)))) #s(literal -1/4 binary64)))) (pow.f64 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 y-scale y-scale)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (fma.f64 (.f64 (fma.f64 (/.f64 #s(literal 1/16 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 3 binary64)))) #s(literal -1/4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))) #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 4 binary64))) #s(literal -1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) #s(literal -1/2 binary64)))) (pow.f64 y-scale #s(literal 6 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (fma.f64 (/.f64 #s(literal 1/16 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 3 binary64)))) #s(literal -1/4 binary64)))) (pow.f64 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 y-scale y-scale)))) #s(literal -1/16 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (*.f64 x-scale x-scale))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #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)))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.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)))) #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)))) (/.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.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)))) #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)))) (/.f64 (-.f64 (fma.f64 (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 3 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 y-scale #s(literal 4 binary64)))) #s(literal 1/4 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 #s(literal 1/2 binary64) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 4 binary64))) #s(literal -1/4 binary64))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))) (-.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (*.f64 y-scale y-scale)))

rewrite191.0ms (0.4%)

Memory

4.9MiB live, 318.4MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	56	460
0	104	460
1	365	441
2	2888	420
0	8600	405

Stop Event

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

Counts

7 → 174

Calls

Call 1

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

Outputs
(.f64 (pow.f64 (neg.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (fabs.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) #s(literal 1/2 binary64)) (pow.f64 (fabs.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1/2 binary64)) (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 4 binary64)) #s(literal 1/4 binary64))
(pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 4 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) #s(literal 2 binary64)))))
(/.f64 (hypot.f64 (pow.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) #s(literal 3 binary64)) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 3 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 4 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) #s(literal 4 binary64))) (pow.f64 (.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))
(sqrt.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(hypot.f64 (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) #s(literal 1 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(hypot.f64 (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale)))
(hypot.f64 (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 1 binary64)) (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale)))
(hypot.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(hypot.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale)))
(hypot.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(hypot.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale)))
(hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (pow.f64 (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (pow.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 1 binary64)))
(hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (neg.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (fabs.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))) #s(literal 1 binary64)))
(hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (neg.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (fabs.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale))))
(hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (*.f64 y-scale x-scale)))
(exp.f64 (log.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))
(+.f64 (cosh.f64 (log.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))) (sinh.f64 (log.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))
(.f64 (.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (*.f64 b a)) (neg.f64 a)) b)
(.f64 (.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (*.f64 b a)) b) (neg.f64 a))
(.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (*.f64 b a) b)) (neg.f64 a))
(.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 a) b)) (*.f64 b a))
(.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) b) (.f64 (*.f64 (neg.f64 a) b) a))
(.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) #s(literal 2 binary64))
(.f64 (.f64 (.f64 b a) b) (.f64 (neg.f64 a) (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 b a)) (*.f64 (neg.f64 a) b))
(.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64))))
(.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))
(.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(.f64 (.f64 (neg.f64 a) b) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (*.f64 b a)))
(.f64 (.f64 b a) (.f64 (.f64 (neg.f64 a) b) (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(.f64 b (.f64 (.f64 (.f64 (neg.f64 a) b) a) (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(neg.f64 (.f64 (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 b a)) (*.f64 b a)))
(fma.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) b)) (neg.f64 a) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 a) b)) (.f64 b a) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 b a)) (.f64 (neg.f64 a) b) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) b) (.f64 (.f64 (neg.f64 a) b) a) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 2 binary64) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))
(.f64 (/.f64 #s(literal 2 binary64) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 y-scale x-scale)))
(.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))
(.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64))
(.f64 #s(literal 4 binary64) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 #s(literal 4 binary64) (+.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))
(/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale x-scale)) (.f64 y-scale x-scale))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal 64 binary64) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (pow.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)))) (pow.f64 (.f64 y-scale x-scale) #s(literal 4 binary64)))
(/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 (.f64 b a) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (.f64 (.f64 b a) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 #s(literal 4 binary64) (.f64 y-scale y-scale)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(literal 4 binary64) (.f64 x-scale x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 y-scale x-scale)) (/.f64 #s(literal 4 binary64) (.f64 y-scale x-scale)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(literal 4 binary64) (.f64 y-scale x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (.f64 y-scale x-scale)) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 b a) #s(literal 4 binary64)) (/.f64 (.f64 (neg.f64 a) b) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 #s(literal 4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(-.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 #s(literal -4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))))
(+.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (*.f64 y-scale y-scale))
(.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale x-scale)) (*.f64 y-scale x-scale))
(.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64))))))
(/.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))))) #s(literal 4 binary64)) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (*.f64 b a) #s(literal 2 binary64))) #s(literal 4 binary64)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))))))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 (.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64)))))) (.f64 (neg.f64 (pow.f64 (.f64 b a) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 3 binary64)) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 3 binary64))) (fma.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))) (/.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))))
(-.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (fma.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 3 binary64)) (fma.f64 (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))))
(-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(+.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1/2 binary64)))
(.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (neg.f64 (PI.f64)) (/.f64 angle #s(literal 180 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) #s(literal 0 binary64) (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))))
(fma.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 0 binary64) (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))
(sin.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 (neg.f64 (PI.f64)) (/.f64 angle #s(literal 180 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64)))))
(cos.f64 (neg.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64))))
(cos.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64)))
(cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) #s(literal 0 binary64)) (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 0 binary64)) (cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1/2 binary64)))
(.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) #s(literal 1 binary64))
(sin.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 1 binary64)))

eval215.0ms (0.5%)

Memory: 26.3MiB live, 362.3MiB allocated; 135ms collecting garbage
Compiler: Compiled 160 581 to 4 442 computations (97.2% saved)

prune78.0ms (0.2%)

Memory

-10.7MiB live, 182.9MiB allocated; 12ms collecting garbage

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	433	14	447
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	434	14	448

Accuracy

39.3%

Counts

448 → 14

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

Compiler

Compiled 8 068 to 2 532 computations (68.6% saved)

simplify212.0ms (0.5%)

Memory

19.6MiB live, 249.5MiB allocated; 18ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	165	5833
0	274	5833
1	538	5803
2	2200	5608
0	8122	5519

Stop Event

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

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

localize1.5s (3.4%)

Memory

9.7MiB live, 1 841.3MiB allocated; 264ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	29.091996972803592	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
accuracy	30.22576650043325	(fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))
accuracy	30.59884482321129	(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))
accuracy	30.865140166238902	(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
accuracy	30.59884482321129	(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))
accuracy	30.846201084068028	(fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))
accuracy	30.865140166238902	(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
accuracy	34.123184562855016	(/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))
accuracy	30.865140166238902	(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
accuracy	30.865140166238902	(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
accuracy	39.28950230464011	(/.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
accuracy	40.148356320274	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))
accuracy	9.691746701501106	(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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))
accuracy	16.992681753173628	(/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
accuracy	36.365256113990995	#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))
accuracy	39.28950230464011	(/.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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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))))
accuracy	0.0	(sqrt.f64 #s(literal 2 binary64))
accuracy	0.39453125	(.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))
accuracy	0.4609375	(*.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))
accuracy	44.026230698018786	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))

Samples

556.0ms	90×	3	valid
414.0ms	90×	2	valid
202.0ms	74×	1	valid
7.0ms	1×	4	valid
1.0ms	1×	0	valid

Compiler

Compiled 5 366 to 127 computations (97.6% saved)

Precisions

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

ival-mult: 179.0ms (18.2% of total)

ival-sin: 135.0ms (13.7% of total)

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

adjust: 110.0ms (11.2% of total)

ival-pow2: 82.0ms (8.3% of total)

ival-cos: 82.0ms (8.3% of total)

ival-cosu: 76.0ms (7.7% of total)

ival-div: 70.0ms (7.1% of total)

ival-add: 56.0ms (5.7% of total)

const: 31.0ms (3.1% of total)

ival-sqrt: 21.0ms (2.1% of total)

ival-sub: 14.0ms (1.4% of total)

ival-neg: 4.0ms (0.4% of total)

ival-pi: 2.0ms (0.2% of total)

exact: 1.0ms (0.1% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

series976.0ms (2.3%)

Memory

-16.9MiB live, 1 106.3MiB allocated; 115ms collecting garbage

Counts

27 → 366

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 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
(.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 #s(literal 1/4 binary64) a)
(.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))
(.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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale))))))
(sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))
(/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))
(fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))))
(fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))
(-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))
(*.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))
(sqrt.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 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 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 (* (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 a) #s(hole binary64 (* 1/4 a)))
#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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow x-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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow x-scale 2))) (* 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)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2)))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow x-scale 2))) (* 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)))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow y-scale 2))) (* a (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow y-scale 2))) (* a (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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) (+ (* -2 b) (* 2 b)))) (* a (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow a 3) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 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) (+ (* -2 b) (* 2 b)))) (* a (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow a 3) (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* a (pow x-scale 2)))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow y-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* a (pow y-scale 2)))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2))))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))))))))))) a) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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)) (* 1/4 (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow x-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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow x-scale 2))) (* 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)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2)))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow x-scale 2))) (* 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)))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow y-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow y-scale 2))) (* b (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow y-scale 2))) (* b (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (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)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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) (+ (* -2 a) (* 2 a)))) (* b (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow b 3) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 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) (+ (* -2 a) (* 2 a)))) (* b (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow b 3) (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* b (pow x-scale 2)))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow y-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* b (pow y-scale 2)))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2))))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))))))))))) b) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) b) (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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)) (* 1/4 (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b 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))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2)))))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b 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))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b 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/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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-scale 2)))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-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 y-scale 2)))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2))))))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #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))) (* 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (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)))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (cos (* -1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (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 (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (* (* (PI) angle) 1/180)) #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))) (pow x-scale 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 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 (+ a b) 2) (pow (- b a) 2)))) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (cos (* -1/180 (* 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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (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 a 2) (pow (cos (* 1/180 (* 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 (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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 (sqrt 2)) (sqrt 8)) #s(hole binary64 (* 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))))))) #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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (pow x-scale 2))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* x-scale (sqrt 2)) #s(hole binary64 (* x-scale (sqrt 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-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 (+ a b) 2) (pow (- b a) 2)))))) (pow y-scale 2))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
82.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 (sqrt 2)) (sqrt 8))) (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8)) (* 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))))))) (/ (* 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)))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)))))) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* x-scale (sqrt 2)) (sqrt 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)))) (/ (* 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)))) (cos (* -1/180 (* (PI) angle))) (cos (* (/ angle 180) (PI))) (sin (* (* (PI) angle) 1/180)))
81.0ms	a	@	inf	((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8))) (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8)) (* 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))))))) (/ (* 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)))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)))))) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* x-scale (sqrt 2)) (sqrt 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)))) (/ (* 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)))) (cos (* -1/180 (* (PI) angle))) (cos (* (/ angle 180) (PI))) (sin (* (* (PI) angle) 1/180)))
75.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 (sqrt 2)) (sqrt 8))) (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8)) (* 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))))))) (/ (* 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)))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)))))) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* x-scale (sqrt 2)) (sqrt 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)))) (/ (* 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)))) (cos (* -1/180 (* (PI) angle))) (cos (* (/ angle 180) (PI))) (sin (* (* (PI) angle) 1/180)))
72.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 (sqrt 2)) (sqrt 8))) (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8)) (* 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))))))) (/ (* 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)))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)))))) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* x-scale (sqrt 2)) (sqrt 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)))) (/ (* 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)))) (cos (* -1/180 (* (PI) angle))) (cos (* (/ angle 180) (PI))) (sin (* (* (PI) angle) 1/180)))
70.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 (sqrt 2)) (sqrt 8))) (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8)) (* 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))))))) (/ (* 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)))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)))))) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* x-scale (sqrt 2)) (sqrt 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)))) (/ (* 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)))) (cos (* -1/180 (* (PI) angle))) (cos (* (/ angle 180) (PI))) (sin (* (* (PI) angle) 1/180)))

simplify872.0ms (2%)

Memory

63.8MiB live, 1 192.6MiB allocated; 190ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3620	253058
0	8415	246606

Stop Event

1×	iter limit
1×	node limit

Counts

366 → 366

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(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 (sqrt 2)) (sqrt 8))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 a) #s(hole binary64 (* 1/4 a)))
#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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow x-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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow x-scale 2))) (* 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)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2)))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow x-scale 2))) (* 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)))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow y-scale 2))) (* a (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow y-scale 2))) (* a (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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) (+ (* -2 b) (* 2 b)))) (* a (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow a 3) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 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) (+ (* -2 b) (* 2 b)))) (* a (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow a 3) (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* a (pow x-scale 2)))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow y-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* a (pow y-scale 2)))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2))))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))))))))))) a) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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)) (* 1/4 (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow x-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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow x-scale 2))) (* 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)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2)))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow x-scale 2))) (* 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)))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow y-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow y-scale 2))) (* b (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow y-scale 2))) (* b (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (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)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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) (+ (* -2 a) (* 2 a)))) (* b (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow b 3) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 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) (+ (* -2 a) (* 2 a)))) (* b (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow b 3) (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* b (pow x-scale 2)))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow y-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* b (pow y-scale 2)))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2))))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))))))))))) b) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) b) (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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)) (* 1/4 (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b 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))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2)))))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b 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))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b 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/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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-scale 2)))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-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 y-scale 2)))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2))))))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #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))) (* 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (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)))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (cos (* -1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (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 (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (* (* (PI) angle) 1/180)) #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))) (pow x-scale 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 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 (+ a b) 2) (pow (- b a) 2)))) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (cos (* -1/180 (* 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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (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 a 2) (pow (cos (* 1/180 (* 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 (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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 (sqrt 2)) (sqrt 8)) #s(hole binary64 (* 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))))))) #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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (pow x-scale 2))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* x-scale (sqrt 2)) #s(hole binary64 (* x-scale (sqrt 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-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 (+ a b) 2) (pow (- b a) 2)))))) (pow y-scale 2))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))

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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 b b) (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 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (sqrt 2)) (sqrt 8))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 a) (* (* x-scale (sqrt 2)) (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* 1/4 a) #s(hole binary64 (* 1/4 a)))
#s(approx (* 1/4 a) (*.f64 #s(literal 1/4 binary64) a))
#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 (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 b b) (.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))))))) #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))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))) #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))))))) (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))) #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))))))) (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 a a) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 b b) (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 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 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 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 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 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))))) #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)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))))) #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)))))) (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))))) #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)))))) (.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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))))) #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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 b b) (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 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (-.f64 (fma.f64 a (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow x-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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 a (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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow x-scale 2))) (* 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)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2)))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64) (.f64 a (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 x-scale x-scale)) (.f64 a (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow x-scale 2))) (* 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)))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64) (.f64 a (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 x-scale x-scale)) (.f64 a (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 a (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 b #s(literal 0 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 x-scale x-scale))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 a (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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow y-scale 2))) (* a (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64) (.f64 a (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (.f64 a (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (*.f64 y-scale y-scale)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* a (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow y-scale 2))) (* a (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (+ (* 4 (/ (* a (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64) (.f64 a (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (.f64 a (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 a (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 b #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (/.f64 (.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 (.f64 b b) #s(literal -2 binary64)))) (.f64 y-scale y-scale))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 a (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 a (fma.f64 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 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 #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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 a (fma.f64 a (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) a) (.f64 #s(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 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 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.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 (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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 #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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 (.f64 b b) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (.f64 y-scale (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 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-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 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))) #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)))) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))) #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)))) (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (* (* 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)))) (pow (* x-scale y-scale) 2)) (.f64 #s(literal -4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 b b) (.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 (* (* 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 a (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 a (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (neg.f64 (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (-.f64 (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 b b) (.f64 a a)) (/.f64 (.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 (.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 x-scale 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(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (-.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)) (.f64 b #s(literal 0 binary64))) a) (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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (pow.f64 a #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 4 binary64) (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.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 (.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 x-scale 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(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.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)) (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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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) (+ (* -2 b) (* 2 b)))) (* a (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) a) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (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 (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)) (.f64 a a)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 (.f64 a a) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) a) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow a 3) (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (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 (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)) (.f64 a a)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 (.f64 a a) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 a (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 a #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 (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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.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)) (pow.f64 (sin.f64 (.f64 #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 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 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) (+ (* -2 b) (* 2 b)))) (* a (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) a) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 y-scale y-scale)) (/.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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -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 y-scale y-scale)) (.f64 a a)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) a) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 y-scale y-scale)) (/.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)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (* (pow a 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow a 3) (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -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 y-scale y-scale)) (.f64 a a)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 (.f64 a a) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 a (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 a #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (/.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))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.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)) (.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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 3 binary64))) (fma.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)) (.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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (.f64 y-scale y-scale)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #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 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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)))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) #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)))) (.f64 (.f64 a a) (-.f64 (-.f64 (fma.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.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 (/.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)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) #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)))) (.f64 (.f64 a a) (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (fma.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.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 (/.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)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (.f64 a a)) (/.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 (/.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)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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) (fma.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (neg.f64 (.f64 a (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (neg.f64 (.f64 a (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg.f64 (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (neg.f64 (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 a a) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) a) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) a) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 a (.f64 x-scale x-scale))) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (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 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 x-scale x-scale)))) a) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 x-scale x-scale)))) a) (.f64 #s(literal 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 x-scale x-scale)))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* a (pow x-scale 2)))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow x-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (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 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 a (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 x-scale x-scale))))) a) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 x-scale x-scale)))) a) (.f64 #s(literal 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 x-scale x-scale)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* a (pow y-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 a (.f64 y-scale y-scale))) (.f64 (/.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)) #s(literal 2 binary64)))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 y-scale y-scale)))) a) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 y-scale y-scale)))) a) (.f64 #s(literal 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* a (pow y-scale 2)))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow y-scale 2))))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (pow y-scale 2)))) a)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 a (.f64 y-scale y-scale))) (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 y-scale y-scale))))) a) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) (.f64 y-scale y-scale)))) a) (.f64 #s(literal 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)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) a) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))))))))))) a) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #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 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #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))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 a a) (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 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))))))) #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))))))) (.f64 (.f64 b b) (fma.f64 (.f64 b b) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 b b) (fma.f64 (.f64 b b) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 a a) (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 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 a a) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 a a) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))))) #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)))))) (.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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))))) #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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 (.f64 b b) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 a a) (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 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 b (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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 b (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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (-.f64 (fma.f64 b (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (/.f64 (.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))) (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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow x-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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(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 (.f64 b (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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.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))) (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow x-scale 2))) (* 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)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2)))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64) (.f64 b (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 x-scale x-scale)) (.f64 b (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow x-scale 2))) (* 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)))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64) (.f64 b (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 x-scale x-scale)) (.f64 b (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 b (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 a #s(literal 0 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 x-scale x-scale))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow y-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 b (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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (/.f64 (.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))) (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 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow y-scale 2))) (* b (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.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 (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (.f64 b (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (*.f64 y-scale y-scale)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))) (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow y-scale 2))) (* b (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.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 (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (.f64 b (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #s(literal 4 binary64) (+.f64 (/.f64 (.f64 (.f64 b (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 a #s(literal 0 binary64)))) (.f64 y-scale y-scale)) (/.f64 (.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 (.f64 a a) #s(literal -2 binary64)))) (.f64 y-scale y-scale))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 b (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 b (fma.f64 b (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 #s(literal -2 binary64) (.f64 (/.f64 (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 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 b (fma.f64 b (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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)))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 #s(literal -2 binary64) (.f64 (/.f64 (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 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 (.f64 a a) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (.f64 y-scale (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 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-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 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (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)))) #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)))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))) #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)))) (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))) #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)))) (fma.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (fma.f64 (.f64 b b) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 b (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 b (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))))))) (neg.f64 (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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))))))) (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (neg.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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))))))) (.f64 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64))))))) (.f64 (.f64 (pow.f64 b #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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)))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))))) (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))))) (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))))) (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64))))))) (.f64 (.f64 (pow.f64 b #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (-.f64 (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 a a) (.f64 b b)) (/.f64 (.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 (.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 x-scale 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(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (-.f64 (fma.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 a #s(literal 0 binary64))) b) (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 4 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.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 (.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 x-scale 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(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.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)) (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 (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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) (+ (* -2 a) (* 2 a)))) (* b (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (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 (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)) (.f64 b b)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 (.f64 b b) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow x-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow b 3) (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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (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 (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)) (.f64 b b)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 (.f64 b b) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 b (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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 (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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.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)) (pow.f64 (sin.f64 (.f64 #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 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 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) (+ (* -2 a) (* 2 a)))) (* b (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (.f64 y-scale y-scale)) (/.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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -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 y-scale y-scale)) (.f64 b b)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (.f64 y-scale y-scale)) (/.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)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (* (pow b 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow b 3) (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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -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 y-scale y-scale)) (.f64 b b)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 (.f64 b b) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 b (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (/.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))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 y-scale y-scale)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #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 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))) (.f64 (.f64 b b) (-.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (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 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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))))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))) (.f64 (.f64 b b) (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (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 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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))))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))) (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (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 x-scale x-scale)) (/.f64 (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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))) (.f64 (/.f64 (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal -1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (neg.f64 (.f64 b (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (neg.f64 (.f64 b (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg.f64 (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))))))) (neg.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (neg.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))))))) (neg.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))))))) (neg.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64))))))) (.f64 (.f64 (pow.f64 b #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (neg.f64 (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (neg.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (neg.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (neg.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64))))))) (.f64 (.f64 (pow.f64 b #s(literal 6 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) x-scale) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (.f64 (.f64 (.f64 b b) x-scale) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) b) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 b (.f64 x-scale x-scale))) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (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 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 x-scale x-scale)))) b) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 x-scale x-scale)))) b) (.f64 #s(literal 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 x-scale x-scale)))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* b (pow x-scale 2)))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow x-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (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 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 b (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 x-scale x-scale))))) b) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 x-scale x-scale)))) b) (.f64 #s(literal 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 x-scale x-scale)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* b (pow y-scale 2)))) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 b (.f64 y-scale y-scale))) (.f64 (/.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)) #s(literal 2 binary64)))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 y-scale y-scale)))) b) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 y-scale y-scale)))) b) (.f64 #s(literal 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)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* b (pow y-scale 2)))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow y-scale 2))))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (pow y-scale 2)))) b)) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal -2 binary64) (/.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 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 y-scale y-scale))))) b) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) (.f64 y-scale y-scale)))) b) (.f64 #s(literal 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)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) b) (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))))))))))) b) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) b) (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (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)) #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 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 8 binary64)) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 8 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))) (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (*.f64 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))))))) #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))))))) (neg.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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))))))) #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))))))) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a (.f64 angle angle)) (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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))))))) #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))))))) (-.f64 (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a (.f64 angle angle)) (.f64 (.f64 (.f64 b b) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a (.f64 angle angle)) (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))) (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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)))))) #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)))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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)))))) #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)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 a (.f64 angle angle)) (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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)))))) #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)))))) (fma.f64 (.f64 angle angle) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 angle angle) (.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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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)))))) #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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 angle angle) (.f64 b b)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))) (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (.f64 x-scale (.f64 y-scale y-scale)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (*.f64 b b))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b))))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (*.f64 x-scale x-scale))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b 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))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2)))))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b 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))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b 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/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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))))))))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 8 binary64)) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (*.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 8 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-scale 2)))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (*.f64 y-scale y-scale))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)) #s(literal -1/787320000 binary64))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-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 y-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 y-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 y-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 y-scale 2)))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2))))))))))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #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))) (* 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 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 (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))) (.f64 y-scale y-scale)))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))) (.f64 y-scale y-scale)))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.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)))) #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)))) (.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)))) #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)))) (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 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #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)))) (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 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.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) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))) (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(literal 1 binary64))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (cos (* -1/180 (* (PI) angle))) (+.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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (cos (* (/ angle 180) (PI))) #s(hole binary64 1))
#s(approx (cos (* (/ angle 180) (PI))) #s(literal 1 binary64))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#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))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#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 (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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (* (PI) angle) 1/180)) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (* (* (PI) angle) 1/180)) (.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 #s(literal 1/22674816000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (sin (* (* (PI) angle) 1/180)) (.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 (.f64 #s(literal -1/30855889612800000000 binary64) (.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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)))))) #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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))) (pow x-scale 2))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (pow y-scale 2))))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 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 (+ a b) 2) (pow (- b a) 2)))) (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (cos (* -1/180 (* 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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* -1/180 (* (PI) angle))) (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 x-scale (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 x-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 x-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 x-scale x-scale) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (.f64 x-scale x-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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))))
#s(approx (* (* x-scale (sqrt 2)) (sqrt 8)) #s(hole binary64 (* x-scale (* (sqrt 2) (sqrt 8)))))
#s(approx (* (* x-scale (sqrt 2)) (sqrt 8)) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) #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))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (.f64 y-scale (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 a a) y-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (.f64 x-scale x-scale) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 x-scale x-scale) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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 (.f64 a a) (.f64 b b)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 a a) y-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (.f64 y-scale (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 x-scale x-scale) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 x-scale x-scale) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))) x-scale))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (pow x-scale 2))))
#s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* x-scale (sqrt 2)) #s(hole binary64 (* x-scale (sqrt 2))))
#s(approx (* x-scale (sqrt 2)) (*.f64 x-scale (sqrt.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)))) #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)))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))) (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 x-scale x-scale) (fma.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 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 x-scale x-scale) y-scale)) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale)) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (*.f64 x-scale x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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))))))) (/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))) (.f64 x-scale x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) (*.f64 x-scale 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))) (* (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)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 x-scale x-scale) y-scale)) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) #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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) #s(hole binary64 (/ (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) #s(hole binary64 (/ (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) y-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))))) (.f64 x-scale 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 (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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)))) (/.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))) (.f64 x-scale 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 (/ (- (+ (* -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)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))) (*.f64 x-scale 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 (/ (- (+ (* 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)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (.f64 x-scale 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 (/ (- (+ (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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)))) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))) (.f64 x-scale x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 y-scale (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 y-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 y-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 y-scale y-scale) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 x-scale (.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (.f64 x-scale (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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))))))) #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))))))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) x-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (.f64 y-scale y-scale) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 y-scale y-scale) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) x-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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 (.f64 a a) (.f64 b b)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (.f64 x-scale (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) x-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 y-scale y-scale) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 (.f64 (.f64 y-scale y-scale) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))) y-scale))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-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 (+ a b) 2) (pow (- b a) 2)))))) (pow y-scale 2))))
#s(approx (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 y-scale y-scale)))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (/.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 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)))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))) (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (fma.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 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale (.f64 y-scale y-scale))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))))) #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))))))) (/.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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))))))) #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))))))) (/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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))))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 6 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale (.f64 y-scale y-scale))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))))) #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)))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 6 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (.f64 b b)) (sqrt.f64 #s(literal 8 binary64))) x-scale) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))) #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)))) (/.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))) #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)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))) #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)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

rewrite293.0ms (0.7%)

Memory

-5.0MiB live, 402.5MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	165	3145
0	274	3129
1	887	2911
2	7250	2911
0	8007	2846

Stop Event

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

Counts

27 → 337

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 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
(.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 #s(literal 1/4 binary64) a)
(.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))
(.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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale))))))
(sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))
(/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))
(fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))))
(fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale))))
(-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64)))))
(*.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))
(sqrt.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 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 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 (.f64 (*.f64 x-scale #s(literal 4 binary64)) #s(literal 1/4 binary64)) a))
(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) #s(literal 1/4 binary64)) a)
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale))
(.f64 (.f64 (*.f64 #s(literal 1/4 binary64) a) x-scale) #s(literal 4 binary64))
(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) x-scale) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))
(.f64 (.f64 x-scale #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) a))
(.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) x-scale) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 #s(literal 1/4 binary64) a)))
(.f64 (.f64 #s(literal 1/4 binary64) a) (*.f64 x-scale #s(literal 4 binary64)))
(.f64 #s(literal 1/4 binary64) (.f64 (*.f64 x-scale #s(literal 4 binary64)) a))
(.f64 x-scale (.f64 #s(literal 4 binary64) (*.f64 #s(literal 1/4 binary64) a)))
(.f64 a (.f64 #s(literal 1/4 binary64) (*.f64 x-scale #s(literal 4 binary64))))
(*.f64 #s(literal 1/4 binary64) a)
(*.f64 a #s(literal 1/4 binary64))
(.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (sqrt.f64 #s(literal 8 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale))
(*.f64 x-scale #s(literal 4 binary64))
(*.f64 #s(literal 4 binary64) x-scale)
(.f64 (/.f64 #s(literal 2 binary64) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))
(.f64 (/.f64 #s(literal 2 binary64) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 y-scale x-scale)))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))
(.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 2 binary64))
(.f64 #s(literal 8 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 #s(literal 4 binary64) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 #s(literal 4 binary64) (+.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))
(/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (.f64 y-scale x-scale)) (.f64 y-scale x-scale))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))) (-.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))))))
(/.f64 (fma.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (neg.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)))) (.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 #s(literal 4 binary64) (.f64 y-scale y-scale)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(literal 4 binary64) (.f64 x-scale x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 y-scale x-scale)) (/.f64 #s(literal 4 binary64) (.f64 y-scale x-scale)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(literal 4 binary64) (.f64 y-scale x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 y-scale x-scale)) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (/.f64 (.f64 (neg.f64 a) b) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(fma.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(fma.f64 #s(literal 4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(-.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 #s(literal -4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))))
(+.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))
(.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 y-scale x-scale)) (.f64 y-scale x-scale))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (/.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))
(/.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) #s(literal 4 binary64)) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (*.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 #s(literal -4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale)))))
(.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))))))
(neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))
(.f64 (pow.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (sqrt.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (neg.f64 (pow.f64 (*.f64 a b) #s(literal 2 binary64))))))
(.f64 (sqrt.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale)))) (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (*.f64 a b) #s(literal 2 binary64))))))
(.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale)))))
(.f64 (pow.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) #s(literal 1/2 binary64)) (pow.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (neg.f64 (pow.f64 (*.f64 a b) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(neg.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))))
(sqrt.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))
(exp.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))
(.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (.f64 y-scale x-scale)) (.f64 y-scale x-scale))
(.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)) (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))
(/.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))) #s(literal 4 binary64)) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) (.f64 (neg.f64 (pow.f64 (*.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 #s(literal -4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))))
(.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
(.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))
(neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))))
(.f64 (pow.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/4 binary64)) (pow.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))
(.f64 (sqrt.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))
(.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
(.f64 (pow.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) #s(literal 1/2 binary64)) (pow.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal -1/2 binary64)))
(neg.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))))
(sqrt.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))))
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))))
(.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))) x-scale)) x-scale)
(.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (neg.f64 x-scale) x-scale))
(.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (neg.f64 x-scale)) (neg.f64 x-scale))
(.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (fabs.f64 x-scale)) (fabs.f64 x-scale))
(.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) x-scale) x-scale)
(.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale))
(.f64 (.f64 x-scale x-scale) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))
(/.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))
(/.f64 (neg.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
(/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64))) (.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(/.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 3 binary64))) (.f64 (fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 (neg.f64 x-scale) x-scale)))
(/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
(neg.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(neg.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 (neg.f64 x-scale) x-scale))))
(fma.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) x-scale)) x-scale (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))
(fma.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (neg.f64 x-scale) x-scale) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(fma.f64 (/.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) x-scale)) x-scale (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (neg.f64 x-scale) x-scale) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(fma.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(fma.f64 (/.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))
(fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))
(fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(+.f64 (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(+.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64))) (.f64 x-scale x-scale))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))
(/.f64 (neg.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 x-scale x-scale) (.f64 x-scale (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) (.f64 x-scale (.f64 x-scale x-scale)))
(/.f64 (fma.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 x-scale x-scale) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (.f64 x-scale x-scale)))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) x-scale (.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (/.f64 #s(literal 4 binary64) x-scale)))) (.f64 (.f64 x-scale x-scale) x-scale))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 x-scale x-scale) (.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)))) (.f64 (.f64 x-scale x-scale) (.f64 x-scale x-scale)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)))
(/.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))
(/.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 #s(literal 4 binary64) x-scale) (pow.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (/.f64 #s(literal 4 binary64) (neg.f64 x-scale)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (neg.f64 x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 #s(literal 4 binary64) (fabs.f64 x-scale)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (fabs.f64 x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (neg.f64 x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (neg.f64 x-scale)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (/.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (fabs.f64 x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (fabs.f64 x-scale)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (/.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) x-scale) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) x-scale) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal -2 binary64) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (pow.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)))
(fma.f64 #s(literal 4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) x-scale) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (*.f64 x-scale x-scale))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 (neg.f64 x-scale) x-scale)) (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale)) (/.f64 #s(literal 4 binary64) x-scale)))
(-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (neg.f64 (/.f64 #s(literal 4 binary64) x-scale)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale)))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal -8 binary64) (pow.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 binary64) x-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(+.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) x-scale) (/.f64 #s(literal 4 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 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) #s(literal 1/4 binary64))))
(.f64 (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64))) x-scale)
(.f64 (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/4 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale))
(.f64 (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) #s(literal 1/4 binary64))
(.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) (.f64 x-scale (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) #s(literal 1/4 binary64)))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) #s(literal 1/4 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))
(.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (.f64 #s(literal 1/4 binary64) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64))) (.f64 y-scale y-scale))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))
(/.f64 (neg.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (/.f64 #s(literal 4 binary64) y-scale) (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 y-scale y-scale) (.f64 y-scale (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) (.f64 y-scale (.f64 y-scale y-scale)))
(/.f64 (fma.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 y-scale y-scale) (.f64 (.f64 y-scale y-scale) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (.f64 y-scale y-scale)))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) y-scale (.f64 (.f64 y-scale y-scale) (.f64 (/.f64 #s(literal 4 binary64) y-scale) (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) y-scale))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 y-scale y-scale) (.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (.f64 y-scale y-scale)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)))
(/.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))))
(/.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 #s(literal 4 binary64) y-scale) (pow.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (/.f64 #s(literal 4 binary64) (neg.f64 y-scale)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (neg.f64 y-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 (/.f64 #s(literal 4 binary64) (fabs.f64 y-scale)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (neg.f64 y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (neg.f64 y-scale)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (fabs.f64 y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (fabs.f64 y-scale)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) y-scale) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) y-scale) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 (pow.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(fma.f64 #s(literal 4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) y-scale) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (*.f64 y-scale y-scale))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale)) (/.f64 #s(literal 4 binary64) y-scale)))
(-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (neg.f64 (/.f64 #s(literal 4 binary64) y-scale)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale)))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal -8 binary64) (pow.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale))) (pow.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(+.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 4 binary64) y-scale)))
(/.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) y-scale) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 y-scale (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))) (.f64 y-scale (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (neg.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (.f64 (.f64 y-scale y-scale) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (neg.f64 y-scale)) (/.f64 b (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (neg.f64 y-scale)) (/.f64 b (neg.f64 y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (fabs.f64 y-scale)) (/.f64 b (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (fabs.f64 y-scale)) (/.f64 b (fabs.f64 y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) y-scale) (/.f64 b y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) y-scale) (/.f64 b y-scale) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 b b) (neg.f64 y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 b b) (neg.f64 y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (/.f64 (.f64 b b) (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (/.f64 (.f64 b b) (neg.f64 y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 b b) (fabs.f64 y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 b b) (fabs.f64 y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (/.f64 (.f64 b b) (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (/.f64 (.f64 b b) (fabs.f64 y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 (.f64 b b) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 (.f64 b b) y-scale) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (/.f64 b (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (/.f64 b (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
(fma.f64 (.f64 b b) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (.f64 b b) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (.f64 b b) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (.f64 b b) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) #s(literal 3 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(+.f64 (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
(+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64))))
(.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) #s(literal 1/4 binary64))) x-scale)
(.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) #s(literal 1/4 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale))
(.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) #s(literal 1/4 binary64))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) #s(literal 1/4 binary64)) (.f64 x-scale (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))))
(.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64)))
(.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) (.f64 #s(literal 1/4 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)
(*.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sinh.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/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 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale)))
(.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale)))
(.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale)))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 #s(literal 4 binary64) (.f64 y-scale y-scale)))
(.f64 (/.f64 #s(literal 4 binary64) (.f64 x-scale x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 y-scale x-scale)) (/.f64 #s(literal 4 binary64) (.f64 y-scale x-scale)))
(.f64 (/.f64 #s(literal 4 binary64) (.f64 y-scale x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (.f64 y-scale x-scale)))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64))
(.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (/.f64 (.f64 (neg.f64 a) b) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(.f64 #s(literal 4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))
(/.f64 (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (.f64 y-scale x-scale))
(/.f64 (neg.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal -4 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))
(neg.f64 (.f64 #s(literal -4 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (*.f64 y-scale x-scale) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 3 binary64)) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (pow.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (pow.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64))) (+.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64))) (fma.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (+.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (/.f64 (pow.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)) (+.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
(-.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (fma.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (fma.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))))
(-.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
(+.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) a) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(fma.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 (*.f64 #s(literal 1/180 binary64) angle) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal -1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 1 binary64))) (sinh.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 1 binary64))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 (neg.f64 (PI.f64)) (/.f64 angle #s(literal 180 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64))))
(cos.f64 (/.f64 (*.f64 (PI.f64) angle) #s(literal -180 binary64)))
(cos.f64 (*.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 (.f64 (PI.f64) angle) #s(literal -180 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 1 binary64))) (sinh.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 1 binary64))))

eval347.0ms (0.8%)

Memory: 17.5MiB live, 625.4MiB allocated; 111ms collecting garbage
Compiler: Compiled 502 412 to 9 059 computations (98.2% saved)

prune1.3s (3.1%)

Memory

23.5MiB live, 1 497.9MiB allocated; 1.1s collecting garbage

Pruning

48 alts after pruning (48 fresh and 0 done)

	Pruned	Kept	Total
New	1 020	44	1 064
Fresh	5	4	9
Picked	5	0	5
Done	0	0	0
Total	1 030	48	1 078

Accuracy

45.4%

Counts

1 078 → 48

Alt Table

Click to see full alt table

Status	Accuracy	Program
	3.3%	(/.f64 (.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a 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.6%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.1%	(/.f64 (neg.f64 (sqrt.f64 (.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 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.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 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.1%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (-.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 a a)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
	4.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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale))))
	2.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)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale))))
	3.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)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 2 binary64) y-scale) a) (/.f64 a y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	4.4%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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.6%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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 (.f64 (.f64 #s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 b b) (.f64 y-scale y-scale))))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	4.0%	(/.f64 (neg.f64 (exp.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (/.f64 (.f64 #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%	(/.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) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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))))
	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) x-scale) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
▶	31.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64)))
▶	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
	6.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 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) #s(literal 1/4 binary64))) x-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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (.f64 b b) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
	5.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 b b)))) #s(literal 1/2 binary64))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
	4.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))
▶	5.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
▶	4.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	16.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))
	13.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (*.f64 x-scale x-scale)))))))))
	3.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) x-scale) x-scale)))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
▶	14.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))))))
	2.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 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))))
	3.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 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
	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 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
	31.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 8 binary64)))))
	14.7%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	13.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	10.4%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	1.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (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))) #s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
	9.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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
	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))) #s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
	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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))

Compiler

Compiled 30 224 to 9 758 computations (67.7% saved)

simplify329.0ms (0.8%)

Memory

-8.3MiB live, 326.8MiB allocated; 134ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	193	4618
0	284	4624
1	679	4329
2	3223	4310
0	8140	4264

Stop Event

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

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

localize2.4s (5.5%)

Memory

48.2MiB live, 3 821.6MiB allocated; 590ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	28.105435723283293	(fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
accuracy	29.091996972803592	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
accuracy	30.59884482321129	(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
accuracy	30.865140166238902	(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
accuracy	30.200777303349813	(/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
accuracy	30.59884482321129	(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
accuracy	30.865140166238902	(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64))))
accuracy	36.3650973359363	#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
accuracy	29.091996972803592	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))))))
accuracy	30.59884482321129	(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))
accuracy	30.865140166238902	(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
accuracy	48.56260255698174	#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))
accuracy	0.232753759768442	(.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale))
accuracy	0.4296875	(.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64)))
accuracy	0.4609375	(*.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)
accuracy	44.026230698018786	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
accuracy	0.0	(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64))
accuracy	0.0	(.f64 (.f64 x-scale #s(literal 4 binary64)) a)
accuracy	0.0	(*.f64 x-scale #s(literal 4 binary64))
accuracy	44.026230698018786	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64)))

Samples

1.0s	142×	2	valid
910.0ms	91×	3	valid
68.0ms	21×	1	valid
18.0ms	1×	4	valid
1.0ms	1×	0	valid

Compiler

Compiled 3 878 to 174 computations (95.5% saved)

Precisions

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

ival-mult: 364.0ms (19.9% of total)

ival-cos: 313.0ms (17.1% of total)

ival-sin: 304.0ms (16.6% of total)

adjust: 236.0ms (12.9% of total)

ival-pow2: 147.0ms (8% of total)

ival-sinu: 115.0ms (6.3% of total)

ival-div: 115.0ms (6.3% of total)

ival-cosu: 56.0ms (3.1% of total)

const: 49.0ms (2.7% of total)

ival-add: 47.0ms (2.6% of total)

ival-sqrt: 33.0ms (1.8% of total)

ival-sub: 22.0ms (1.2% of total)

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

ival-pow: 6.0ms (0.3% of total)

ival-pi: 3.0ms (0.2% of total)

exact: 1.0ms (0.1% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

series680.0ms (1.6%)

Memory

9.3MiB live, 953.4MiB allocated; 116ms collecting garbage

Counts

31 → 358

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 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64)))
(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64))
(.f64 (.f64 x-scale #s(literal 4 binary64)) 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 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale))
(.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64)))
(*.f64 #s(literal 1/4 binary64) a)
(fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))
(fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a))))))))
(.f64 (.f64 b b) (pow.f64 (sin.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 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
(+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (PI.f64) angle)))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) 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 (* (* (* x-scale 4) a) 1/4) #s(hole binary64 (* a x-scale)))
#s(approx (* (* x-scale 4) a) #s(hole binary64 (* 4 (* a x-scale))))
#s(approx (* (* (* 1/4 a) (sqrt 8)) (* (sqrt 2) x-scale)) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 a) (sqrt 8)) #s(hole binary64 (* 1/4 (* a (sqrt 8)))))
#s(approx (* 1/4 a) #s(hole binary64 (* 1/4 a)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* -1/2 (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* -1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* a (- (* a (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* a (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* a (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* a (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (+ (* 4 (* a (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* -1/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))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2)))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (/ (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))) (* 4 (* (pow (cos (* 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 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (pow a 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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 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 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (pow a 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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (* 4 (* (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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow a 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (* 4 (* (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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow a 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(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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 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 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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))) (* 4 (* (pow (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) a)) (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* b (- (* -1/2 (* b (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* b (- (* b (- (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* b (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* b (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (+ (* 4 (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* -1/2 (/ (* (pow b 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow b 3))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 b 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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 b 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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (* 4 (* (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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow b 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (* 4 (* (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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow b 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(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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* 1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) b) (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))) (* 4 (* (pow (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) b)) (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (pow a 2)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (* -1/3149280000 (* (pow b 2) (pow (PI) 4)))))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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 angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (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 (* (* b b) (pow (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 (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2))))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (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 (* (* b b) (pow (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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #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))) (* 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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (+ (* -1/32400 (* (pow 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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #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))) (* 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (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 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/16200 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2)))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* -2 (* (pow a 2) (pow b 2)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (+ (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* 4 (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (+ (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (+ (* 4 (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b 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)))))) (+ (* (+ (* -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 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 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)))))))))) (* 4 (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 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 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (cos (* 1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 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 (+ a b) 2) (pow (- b a) 2)))) (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 (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 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 (+ a b) 2) (pow (- b 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (sqrt 2) x-scale) #s(hole binary64 (* x-scale (sqrt 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 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 (* 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))))))) (/ (* 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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (/ (- (* (pow a 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
96.0ms	a	@	inf	((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* (* x-scale 4) a) 1/4) (* (* x-scale 4) a) (* 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 a) (sqrt 8)) (* (sqrt 2) x-scale)) (* (* 1/4 a) (sqrt 8)) (* 1/4 a) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (* b b) (pow (cos (* -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))) (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (* (sqrt 2) x-scale) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* -1/180 (* (PI) angle))) (sin (* (* (PI) angle) 1/180)) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (cos (* -1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))) (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (cos (* 1/180 (* (PI) angle))) (sin (* 1/180 (* (PI) angle))) (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))))
58.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))) (* (* (* x-scale 4) a) 1/4) (* (* x-scale 4) a) (* 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 a) (sqrt 8)) (* (sqrt 2) x-scale)) (* (* 1/4 a) (sqrt 8)) (* 1/4 a) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (* b b) (pow (cos (* -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))) (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (* (sqrt 2) x-scale) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* -1/180 (* (PI) angle))) (sin (* (* (PI) angle) 1/180)) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (cos (* -1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))) (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (cos (* 1/180 (* (PI) angle))) (sin (* 1/180 (* (PI) angle))) (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))))
57.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))) (* (* (* x-scale 4) a) 1/4) (* (* x-scale 4) a) (* 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 a) (sqrt 8)) (* (sqrt 2) x-scale)) (* (* 1/4 a) (sqrt 8)) (* 1/4 a) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (* b b) (pow (cos (* -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))) (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (* (sqrt 2) x-scale) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* -1/180 (* (PI) angle))) (sin (* (* (PI) angle) 1/180)) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (cos (* -1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))) (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (cos (* 1/180 (* (PI) angle))) (sin (* 1/180 (* (PI) angle))) (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))))
50.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))) (* (* (* x-scale 4) a) 1/4) (* (* x-scale 4) a) (* 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 a) (sqrt 8)) (* (sqrt 2) x-scale)) (* (* 1/4 a) (sqrt 8)) (* 1/4 a) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (* b b) (pow (cos (* -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))) (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (* (sqrt 2) x-scale) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* -1/180 (* (PI) angle))) (sin (* (* (PI) angle) 1/180)) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (cos (* -1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))) (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (cos (* 1/180 (* (PI) angle))) (sin (* 1/180 (* (PI) angle))) (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))))
43.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))) (* (* (* x-scale 4) a) 1/4) (* (* x-scale 4) a) (* 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 a) (sqrt 8)) (* (sqrt 2) x-scale)) (* (* 1/4 a) (sqrt 8)) (* 1/4 a) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (* b b) (pow (cos (* -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))) (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (* (sqrt 2) x-scale) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* -1/180 (* (PI) angle))) (sin (* (* (PI) angle) 1/180)) (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (cos (* -1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))) (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (cos (* 1/180 (* (PI) angle))) (sin (* 1/180 (* (PI) angle))) (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))))

simplify604.0ms (1.4%)

Memory

24.1MiB live, 724.7MiB allocated; 77ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3501	150017
0	8164	146209

Stop Event

1×	iter limit
1×	node limit

Counts

358 → 358

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(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 (* (* (* x-scale 4) a) 1/4) #s(hole binary64 (* a x-scale)))
#s(approx (* (* x-scale 4) a) #s(hole binary64 (* 4 (* a x-scale))))
#s(approx (* (* (* 1/4 a) (sqrt 8)) (* (sqrt 2) x-scale)) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 a) (sqrt 8)) #s(hole binary64 (* 1/4 (* a (sqrt 8)))))
#s(approx (* 1/4 a) #s(hole binary64 (* 1/4 a)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* -1/2 (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* -1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* a (- (* a (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* a (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* a (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* a (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (+ (* 4 (* a (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* -1/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))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2)))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (/ (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))) (* 4 (* (pow (cos (* 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 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (pow a 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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 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 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (pow a 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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (* 4 (* (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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow a 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (* 4 (* (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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow a 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(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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 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 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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))) (* 4 (* (pow (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) a)) (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* b (- (* -1/2 (* b (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* b (- (* b (- (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* b (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* b (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (+ (* 4 (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* -1/2 (/ (* (pow b 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow b 3))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 b 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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 b 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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (* 4 (* (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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow b 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (* 4 (* (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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow b 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(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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* 1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) b) (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))) (* 4 (* (pow (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) b)) (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (pow a 2)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (* -1/3149280000 (* (pow b 2) (pow (PI) 4)))))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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 angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (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 (* (* b b) (pow (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 (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2))))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (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 (* (* b b) (pow (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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #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))) (* 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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (+ (* -1/32400 (* (pow 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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #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))) (* 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (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 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/16200 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2)))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* -2 (* (pow a 2) (pow b 2)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (+ (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* 4 (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (+ (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (+ (* 4 (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b 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)))))) (+ (* (+ (* -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 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 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)))))))))) (* 4 (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 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 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (cos (* 1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 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 (+ a b) 2) (pow (- b a) 2)))) (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 (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 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 (+ a b) 2) (pow (- b 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 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (sqrt 2) x-scale) #s(hole binary64 (* x-scale (sqrt 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 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 (* 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))))))) (/ (* 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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (/ (- (* (pow a 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))

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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 b b) (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 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (* (* (* x-scale 4) a) 1/4) #s(hole binary64 (* a x-scale)))
#s(approx (* (* (* x-scale 4) a) 1/4) (*.f64 a x-scale))
#s(approx (* (* x-scale 4) a) #s(hole binary64 (* 4 (* a x-scale))))
#s(approx (* (* x-scale 4) a) (.f64 #s(literal 4 binary64) (.f64 a x-scale)))
#s(approx (* (* (* 1/4 a) (sqrt 8)) (* (sqrt 2) x-scale)) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* (* 1/4 a) (sqrt 8)) (* (sqrt 2) x-scale)) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (* 1/4 a) (sqrt 8)) #s(hole binary64 (* 1/4 (* a (sqrt 8)))))
#s(approx (* (* 1/4 a) (sqrt 8)) (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))))
#s(approx (* 1/4 a) #s(hole binary64 (* 1/4 a)))
#s(approx (* 1/4 a) (*.f64 #s(literal 1/4 binary64) a))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* -1/2 (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 (.f64 #s(literal -1/2 binary64) a) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (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 2 binary64))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (.f64 #s(literal -1/2 binary64) (-.f64 (fma.f64 a (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (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 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (fma.f64 #s(literal -1/2 binary64) (-.f64 (fma.f64 a (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 a (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 a (fma.f64 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 a (fma.f64 a (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) a) (.f64 #s(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* -1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 a (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* a (- (* a (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 a (fma.f64 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 a (fma.f64 a (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) a) (.f64 #s(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 (.f64 b b) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (.f64 y-scale (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 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (.f64 b b) (.f64 y-scale y-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 #s(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 #s(literal 1/8 binary64) (.f64 (.f64 x-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 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 b b) (.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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (-.f64 (fma.f64 a (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) (.f64 b b)) (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* (pow b 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 a (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) (.f64 b b)) (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 a (fma.f64 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 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 #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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) (.f64 b b)) (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* a (- (* a (- (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 2) (pow y-scale 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 a (fma.f64 a (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) a) (.f64 #s(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 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 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.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 (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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 #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 b b)) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) (.f64 b b)) (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64)))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* a (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 b #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (fma.f64 (.f64 a (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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #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)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* a (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64) (.f64 a (fma.f64 (.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a (fma.f64 #s(literal -2 binary64) (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.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 (.f64 b b) #s(literal -2 binary64))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* a (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (+ (* 4 (* a (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 (.f64 (pow.f64 b #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))) #s(literal 2 binary64) (.f64 a (fma.f64 (.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a (fma.f64 #s(literal -2 binary64) (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 #s(literal 4 binary64) (fma.f64 (.f64 a (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 b #s(literal 0 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 (*.f64 b b) #s(literal -2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 a (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 a (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* -1/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))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 a a)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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/2 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 3 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a a))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a a)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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/2 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 3 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (-.f64 (fma.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)) (.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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.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 (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 -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 3 binary64))) (-.f64 (fma.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)) (.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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.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 (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 -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2)))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 a a)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 #s(literal 2 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (.f64 y-scale y-scale)))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (/ (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))) (* 4 (* (pow (cos (* 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 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow a 2))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 3 binary64))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (*.f64 y-scale y-scale))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (pow a 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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.f64 (.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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 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 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (pow a 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))) (* 4 (* (pow (cos (* 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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.f64 (.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 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.f64 (.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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (-.f64 (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 b b) (.f64 a a)) (/.f64 (.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 (.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 x-scale 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(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (-.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)) (.f64 b #s(literal 0 binary64))) a) (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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (pow.f64 a #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 4 binary64) (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.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 (.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 x-scale 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(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.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)) (.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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow a 3))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -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 (/ (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 a 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 3 binary64))) (fma.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)) (.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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.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)) a) (/.f64 (.f64 b #s(literal 0 binary64)) (.f64 y-scale y-scale)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 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))) #s(literal 2 binary64))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.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))) #s(literal 2 binary64) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) a)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (* 4 (* (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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow a 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (fma.f64 (.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 a a)) (/.f64 (.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 b #s(literal 0 binary64)))) a))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (* 4 (* (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) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow a 3)))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (fma.f64 (.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 4 binary64) (+.f64 (/.f64 (.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 (.f64 b b) #s(literal -2 binary64)))) (.f64 a a)) (/.f64 (.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 b #s(literal 0 binary64)))) a)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (pow.f64 a #s(literal 3 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (neg.f64 (.f64 a (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (neg.f64 (.f64 a (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg.f64 (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) a))) a) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a))) a) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) a) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) a)) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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))) (* 4 (* (pow (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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))) (* 4 (* (pow (cos (* 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (* (pow y-scale 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))) (* 4 (* (pow (cos (* 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 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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))) (* 4 (* (pow (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.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 #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 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) a) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) a) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* a (pow y-scale 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (-.f64 (fma.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)) a) (/.f64 (.f64 b #s(literal 0 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow a 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) a)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) a)) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow y-scale 2)))) a)) (/ (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) a) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) a)) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64)))) a) (.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))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.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 (.f64 b b) #s(literal -2 binary64))))) a) (.f64 (.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 b #s(literal 0 binary64))))) a) (.f64 (.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)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) a)) (+ (* -2 (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))))) a)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) a) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 b b) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.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 (.f64 b b) #s(literal -2 binary64)))))) a) (.f64 (.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 b #s(literal 0 binary64))))) a) (.f64 (.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)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 a a) (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 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 b (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 b (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 b (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 b (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/.f64 (.f64 (.f64 b b) (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 (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 b (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 b (fma.f64 b (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 b (fma.f64 b (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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)))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 b (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* b (- (* -1/2 (* b (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* b (- (* b (- (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* 2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 b (fma.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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)))))) (.f64 #s(literal -1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 (.f64 a a) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (.f64 y-scale (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 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (.f64 a a) (.f64 y-scale y-scale)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 #s(literal 1/8 binary64) (.f64 (.f64 x-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 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 b (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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 b (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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (-.f64 (fma.f64 b (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* (pow a 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 b (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 b (fma.f64 b (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 #s(literal -2 binary64) (.f64 (/.f64 (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 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* b (- (* b (- (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 2) (pow y-scale 2)))))) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 b (fma.f64 b (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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)))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 #s(literal -2 binary64) (.f64 (/.f64 (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 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 a #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (fma.f64 (.f64 b (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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* b (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 b (fma.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.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 (.f64 a a) #s(literal -2 binary64))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* b (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (+ (* 4 (* b (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 b (fma.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 #s(literal 4 binary64) (fma.f64 (.f64 b (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 a #s(literal 0 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 (*.f64 a 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 (* (* 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))) (.f64 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 b (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 b (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (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 (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 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))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (-.f64 (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (-.f64 (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.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 (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 -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 3 binary64))) (-.f64 (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.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 (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 -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* -1/2 (/ (* (pow b 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b b) (.f64 y-scale y-scale)) (/.f64 (.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))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 b b) (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 y-scale y-scale))) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 b b) (-.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow b 3))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 3 binary64))) (-.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 b 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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 b 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))) (* 4 (* (pow (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 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (-.f64 (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 a a) (.f64 b b)) (/.f64 (.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 (.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 x-scale 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(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (-.f64 (fma.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 a #s(literal 0 binary64))) b) (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 4 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.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 (.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 x-scale 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(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (*.f64 y-scale y-scale)))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow b 3))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (/ (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 b 2))) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 y-scale y-scale)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 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))) #s(literal 2 binary64))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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))) #s(literal 2 binary64) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) b)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (* 4 (* (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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow b 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (fma.f64 (.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 b b)) (/.f64 (.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 a #s(literal 0 binary64)))) b))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (* 4 (* (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) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow b 3)))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (fma.f64 (.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 4 binary64) (+.f64 (/.f64 (.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 (.f64 a a) #s(literal -2 binary64)))) (.f64 b b)) (/.f64 (.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 a #s(literal 0 binary64)))) b)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (pow.f64 b #s(literal 3 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal -1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (neg.f64 (.f64 b (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (neg.f64 (.f64 b (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg.f64 (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* 1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 #s(literal 1/2 binary64) (/.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (-.f64 (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 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 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) b) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 b b) (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 y-scale y-scale))) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (* (pow b 2) (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (* 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) b) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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))) (* 4 (* (pow (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))) (* 4 (* (pow (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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (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 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) b) (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))) (* 4 (* (pow (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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))) (* 4 (* (pow (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)) (* 1/4 (* (* 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))) (* 4 (* (pow (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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)) (pow.f64 (sin.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 (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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (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))) #s(literal 2 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.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 2 binary64)) (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) b) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* b (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (fma.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)) b) (/.f64 (.f64 a #s(literal 0 binary64)) (.f64 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (* (pow b 2) (- (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) b)) (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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))))) b)) (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow y-scale 2)))) b)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) b) (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 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(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) b) (.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 a #s(literal 0 binary64))) (.f64 y-scale y-scale)))) b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) b)) (+ (* -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 (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64)))) b) (.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))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.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 (.f64 a a) #s(literal -2 binary64))))) b) (.f64 (.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 a #s(literal 0 binary64))))) b) (.f64 (.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)))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) b)) (+ (* -2 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))))) b)) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) b) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.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 (.f64 a a) #s(literal -2 binary64)))))) b) (.f64 (.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 a #s(literal 0 binary64))))) b) (.f64 (.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)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))) (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (pow a 2)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (*.f64 a a))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (*.f64 a a)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (* -1/3149280000 (* (pow b 2) (pow (PI) 4)))))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 a a)))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))))))) (*.f64 a a)))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 #s(literal 2 binary64) (.f64 a a)))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal 2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal 2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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 angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal 2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (*.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64)))))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))))))
#s(approx (* (* b b) (pow (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 b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) #s(literal -1/347128758144000000000 binary64))) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))))))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64)))) (*.f64 y-scale y-scale))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2))))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (*.f64 y-scale y-scale)))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))
#s(approx (* 1/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (/.f64 (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) #s(literal -1/347128758144000000000 binary64))) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (*.f64 y-scale y-scale))))))))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (*.f64 b b))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 b b)))
#s(approx (* (* b b) (pow (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 (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)))
#s(approx (* (* b b) (pow (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 b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 b b)))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #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))) (* 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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 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 (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (-.f64 (.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (* 1/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (-.f64 (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))))) (-.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (* (+ (* -1/32400 (* (pow 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)))))) (+ (* (+ (* -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 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 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 b 2) (pow y-scale 2)))) (* 4 (/ (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))) (* (pow b 2) (pow y-scale 2))))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* (pow b 2) (pow y-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 b b) (.f64 y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 b b) (.f64 y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (*.f64 b b))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b))))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(literal 1 binary64))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* -1/180 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #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 (cos (* -1/180 (* (PI) angle))) (+.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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (* (PI) angle) 1/180)) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (* (* (PI) angle) 1/180)) (.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 #s(literal 1/22674816000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))
#s(approx (sin (* (* (PI) angle) 1/180)) #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 (sin (* (* (PI) angle) 1/180)) (.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 (.f64 #s(literal -1/30855889612800000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* 1/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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #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))) (* 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2))) (* -1 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 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 (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))) (.f64 y-scale y-scale)))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(literal 1 binary64))
#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)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#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)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#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 (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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#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)))) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.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)))) #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)))) (.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 #s(literal 1/22674816000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))
#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 (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 (.f64 #s(literal -1/30855889612800000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/16200 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64)))) (*.f64 y-scale y-scale))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2)))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))))))))
#s(approx (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) #s(literal -1/347128758144000000000 binary64))) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (cos (* 1/180 (* (PI) angle))) (+.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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* (PI) angle))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* (PI) angle))) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) (.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 #s(literal 1/22674816000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))
#s(approx (sin (* 1/180 (* (PI) angle))) #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 (sin (* 1/180 (* (PI) angle))) (.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 (.f64 #s(literal -1/30855889612800000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (* -2 (* (pow a 2) (pow b 2)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (.f64 (.f64 #s(literal -2 binary64) (.f64 a a)) (.f64 b b)))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 #s(literal -2 binary64) (.f64 a a)) (.f64 b b) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 #s(literal 1/8100 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (+ (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* 4 (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 #s(literal -2 binary64) (.f64 a a)) (.f64 b b) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (fma.f64 (.f64 #s(literal 1/8100 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (.f64 #s(literal 4 binary64) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (pow b 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 b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (+ (* 1/8100 (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 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 a 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) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (+ (* 4 (+ (* -1/1049760000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2)))) (* -1/3149280000 (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b 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)))))) (+ (* (+ (* -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 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 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)))))))))) (* 4 (+ (* 1/102036672000000 (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2))))) (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2)))))))))))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.f64 #s(literal -2 binary64) (.f64 a a)) (.f64 b b) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (fma.f64 (.f64 #s(literal 1/8100 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))) (fma.f64 #s(literal 4 binary64) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) #s(literal -1/787320000 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))))) (.f64 #s(literal 4 binary64) (fma.f64 (.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b 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 a 2) (pow (cos (* 1/180 (* 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 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 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 (cos (* 1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (* (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (cos (* -1/180 (* (PI) angle))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* -1/180 (* (PI) angle))) (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sin (* (* (PI) angle) 1/180)) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sin (* (* (PI) angle) 1/180)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 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 (+ a b) 2) (pow (- b a) 2)))) (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 (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* -1/180 (* angle (PI)))) (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* (PI) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sin (* 1/180 (* (PI) angle))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* (PI) angle))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 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 (+ a b) 2) (pow (- b a) 2))))))))
#s(approx (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 x-scale (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 x-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 x-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 x-scale x-scale) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (.f64 x-scale x-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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))))
#s(approx (* x-scale 4) #s(hole binary64 (* 4 x-scale)))
#s(approx (* x-scale 4) (*.f64 #s(literal 4 binary64) x-scale))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (sqrt 2) x-scale) #s(hole binary64 (* x-scale (sqrt 2))))
#s(approx (* (sqrt 2) x-scale) (*.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 y-scale (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 y-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 y-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 y-scale y-scale) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 x-scale (.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (/.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (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 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) #s(hole binary64 (/ (- (* (pow a 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (/.f64 (fma.f64 (.f64 a a) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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))))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (/.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (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 (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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 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 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 (+ a b) 2) (pow (- b a) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

rewrite369.0ms (0.9%)

Memory

21.9MiB live, 340.0MiB allocated; 49ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	193	2877
0	284	2807
1	1184	2628
0	9081	2599

Stop Event

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

Counts

31 → 487

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 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64)))
(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64))
(.f64 (.f64 x-scale #s(literal 4 binary64)) 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 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale))
(.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64)))
(*.f64 #s(literal 1/4 binary64) a)
(fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))
(fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a))))))))
(.f64 (.f64 b b) (pow.f64 (sin.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 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
(+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64)))))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (PI.f64) angle)))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) 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))) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 x-scale #s(literal 4 binary64)) a)))
(.f64 (.f64 #s(literal 1/4 binary64) (*.f64 x-scale #s(literal 4 binary64))) a)
(.f64 (.f64 #s(literal 1/4 binary64) x-scale) (*.f64 #s(literal 4 binary64) a))
(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) #s(literal 1/4 binary64)) a)
(.f64 (.f64 #s(literal 1/4 binary64) a) (*.f64 x-scale #s(literal 4 binary64)))
(.f64 #s(literal 1/4 binary64) (.f64 (*.f64 x-scale #s(literal 4 binary64)) a))
(.f64 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/4 binary64))
(.f64 (.f64 x-scale #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) a))
(.f64 x-scale (.f64 (*.f64 #s(literal 4 binary64) a) #s(literal 1/4 binary64)))
(.f64 x-scale (.f64 #s(literal 4 binary64) (*.f64 #s(literal 1/4 binary64) a)))
(.f64 a (.f64 (*.f64 x-scale #s(literal 4 binary64)) #s(literal 1/4 binary64)))
(.f64 #s(literal 4 binary64) (.f64 x-scale (*.f64 #s(literal 1/4 binary64) a)))
(.f64 (.f64 a x-scale) #s(literal 4 binary64))
(.f64 (.f64 a #s(literal 4 binary64)) x-scale)
(.f64 (.f64 x-scale #s(literal 4 binary64)) a)
(.f64 x-scale (.f64 #s(literal 4 binary64) a))
(.f64 a (.f64 x-scale #s(literal 4 binary64)))
(.f64 #s(literal 4 binary64) (.f64 x-scale a))
(*.f64 x-scale #s(literal 4 binary64))
(*.f64 #s(literal 4 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 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) #s(literal 1/4 binary64)) (.f64 a (sqrt.f64 #s(literal 8 binary64)))))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (sqrt.f64 #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) a))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (.f64 #s(literal 1/4 binary64) a)) (sqrt.f64 #s(literal 8 binary64)))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) #s(literal 1/4 binary64)) (.f64 a (sqrt.f64 #s(literal 8 binary64))))
(.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a) x-scale) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a) (sqrt.f64 #s(literal 2 binary64))) x-scale)
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 x-scale (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a)))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale))
(.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
(.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
(.f64 #s(literal 1/4 binary64) (.f64 a (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 x-scale (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a)))
(.f64 a (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a)
(.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) a) #s(literal 1/4 binary64))
(.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 #s(literal 1/4 binary64) a))
(.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64)))
(.f64 #s(literal 1/4 binary64) (.f64 a (sqrt.f64 #s(literal 8 binary64))))
(.f64 a (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 #s(literal 1/4 binary64) a)
(*.f64 a #s(literal 1/4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64))) (-.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))))))))
(/.f64 (fma.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64))) (+.f64 (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 b)) (neg.f64 b) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 b)) (fabs.f64 b) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) b (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) b (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 b) (.f64 (neg.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (fabs.f64 b) (.f64 (fabs.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b b)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))
(fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 b (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(fma.f64 b (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))) (/.f64 (pow.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 (neg.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))) #s(literal -1/2 binary64)))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
(+.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 6 binary64))) (+.f64 (pow.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64)) (.f64 (pow.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 6 binary64)) (pow.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 6 binary64)) (pow.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 b)) (neg.f64 b) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 b)) (neg.f64 b) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 b)) (fabs.f64 b) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 b)) (fabs.f64 b) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) a (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 a a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 a)) (fabs.f64 a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 a)) (neg.f64 a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (fabs.f64 a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (fabs.f64 a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (neg.f64 a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (neg.f64 a) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 a)) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 a)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 a)) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 a)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a)) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (fabs.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a)) (fabs.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) b (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) b (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) b (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) b (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) a (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (neg.f64 b) (.f64 (neg.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (neg.f64 b) (.f64 (neg.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (fabs.f64 a) (.f64 (fabs.f64 a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (fabs.f64 b) (.f64 (fabs.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (fabs.f64 b) (.f64 (fabs.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b b)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 a (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 a a)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (neg.f64 a) (.f64 (neg.f64 a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 a (.f64 a (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 a (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(fma.f64 b (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 b (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 b (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(fma.f64 b (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (/.f64 (pow.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))
(-.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64)) a)) a))
(-.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a a)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(-.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 (neg.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))) #s(literal -1/2 binary64)))
(-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (-.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(+.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 6 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(+.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))
(+.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(+.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) #s(literal 1/4 binary64))))
(.f64 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale)
(.f64 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) #s(literal 1/4 binary64))
(.f64 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) #s(literal 1/4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale))
(.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
(.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) #s(literal 1/4 binary64)))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) #s(literal 1/4 binary64)) (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))
(.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (.f64 #s(literal 1/4 binary64) (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale) (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
(.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 b)) (neg.f64 b))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 b)) (fabs.f64 b))
(.f64 (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (neg.f64 b)))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (fabs.f64 b)))
(.f64 (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (neg.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))))
(.f64 (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (fabs.f64 b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))))
(.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b)))
(.f64 (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fabs.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b)))
(.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b))))
(.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) b)
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) b)
(.f64 (neg.f64 b) (.f64 (neg.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (fabs.f64 b) (.f64 (fabs.f64 b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b)))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (*.f64 b b)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))
(.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)))
(.f64 b (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 b (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b))
(pow.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b))) #s(literal 2 binary64))
(pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))
(pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) #s(literal 1 binary64))
(exp.f64 (fma.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64) (*.f64 (log.f64 b) #s(literal 2 binary64))))
(exp.f64 (fma.f64 (log.f64 b) #s(literal 2 binary64) (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))
(exp.f64 (.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 b b))) (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) b))
(.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 b b)))
(.f64 (/.f64 #s(literal 1/2 binary64) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1/2 binary64) b) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))
(neg.f64 (.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(neg.f64 (neg.f64 (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 b)) (neg.f64 b))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 b)) (fabs.f64 b))
(.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) b) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))
(.f64 (.f64 (.f64 b b) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (neg.f64 b)) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (neg.f64 b)))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (fabs.f64 b)) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (fabs.f64 b)))
(.f64 (.f64 (neg.f64 b) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (neg.f64 b) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))))
(.f64 (.f64 (fabs.f64 b) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (.f64 (fabs.f64 b) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))))
(.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b)))
(.f64 (fabs.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (fabs.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b)))
(.f64 (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b))) (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b))))
(.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) b)
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) b)
(.f64 (neg.f64 b) (.f64 (neg.f64 b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (fabs.f64 b) (.f64 (fabs.f64 b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 b (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b)))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (*.f64 b b)))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))
(.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)))
(.f64 b (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 b (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b))
(pow.f64 (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b))) #s(literal 2 binary64))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))
(pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) #s(literal 1 binary64))
(exp.f64 (fma.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64) (*.f64 (log.f64 b) #s(literal 2 binary64))))
(exp.f64 (fma.f64 (log.f64 b) #s(literal 2 binary64) (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (sqrt.f64 #s(approx (- (/ (+ ( (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64))))
(/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64))) (-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(/.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))
(/.f64 (-.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 y-scale (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) #s(literal 1/2 binary64)))) (.f64 y-scale (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 (.f64 y-scale y-scale) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) #s(literal 1/2 binary64)))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) y-scale (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) y-scale))) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) y-scale))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (.f64 (neg.f64 y-scale) y-scale) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (*.f64 (neg.f64 y-scale) y-scale)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (.f64 y-scale y-scale) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))) y-scale (.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) y-scale))) (.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) y-scale))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (.f64 (neg.f64 y-scale) y-scale) (.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (*.f64 (neg.f64 y-scale) y-scale)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (.f64 y-scale y-scale) (.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (*.f64 y-scale y-scale)))
(/.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (.f64 y-scale (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (.f64 y-scale (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))))
(/.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) y-scale) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (.f64 y-scale (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))
(/.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))))
(/.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (neg.f64 y-scale)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (neg.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fabs.f64 y-scale)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fabs.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) y-scale) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) (neg.f64 y-scale)) (/.f64 a (neg.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) (fabs.f64 y-scale)) (/.f64 a (fabs.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) y-scale) (/.f64 a y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 a a) (neg.f64 y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (/.f64 (.f64 a a) (neg.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 a a) (fabs.f64 y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (/.f64 (.f64 a a) (fabs.f64 y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (neg.f64 y-scale)) (/.f64 b (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (fabs.f64 y-scale)) (/.f64 b (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) y-scale) (/.f64 b y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (neg.f64 y-scale)) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (fabs.f64 y-scale)) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) y-scale) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (/.f64 (.f64 b b) (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 b b) (neg.f64 y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (/.f64 (.f64 b b) (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (.f64 b b) (fabs.f64 y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 b (neg.f64 y-scale)) (/.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (neg.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 b (fabs.f64 y-scale)) (/.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fabs.f64 y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 b y-scale) (/.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 (.f64 a a) y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(fma.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 (.f64 b b) y-scale) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 b) (.f64 (neg.f64 b) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 b) (.f64 (fabs.f64 b) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 (.f64 b b) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(fma.f64 b (.f64 b (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (+.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (/.f64 (.f64 b b) y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale)))
(-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 b b)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
(-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (-.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))
(+.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 y-scale (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))) (.f64 y-scale (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))) (.f64 (.f64 (neg.f64 y-scale) y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 (.f64 y-scale y-scale) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 y-scale y-scale))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (neg.f64 y-scale)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (neg.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fabs.f64 y-scale)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fabs.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) y-scale) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) y-scale) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) (neg.f64 y-scale)) (/.f64 a (neg.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) (fabs.f64 y-scale)) (/.f64 a (fabs.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) a) y-scale) (/.f64 a y-scale) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 a a) (neg.f64 y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (neg.f64 y-scale)) (/.f64 (.f64 a a) (neg.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 a a) (fabs.f64 y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fabs.f64 y-scale)) (/.f64 (.f64 a a) (fabs.f64 y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 (.f64 a a) y-scale) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))) (/.f64 (pow.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (pow.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) 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 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64))))
(.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) x-scale)
(.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) #s(literal 1/4 binary64))
(.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (.f64 x-scale (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
(.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64)))
(.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) (.f64 #s(literal 1/4 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)
(*.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(fma.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
#s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(fma.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) (/.f64 #s(literal 2 binary64) b))
(.f64 (/.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (*.f64 y-scale y-scale)) b))
(.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (*.f64 b b)))
(.f64 (/.f64 #s(literal 2 binary64) (.f64 b b)) (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) b) (/.f64 #s(literal 2 binary64) (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 2 binary64) b) (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64)))))
(.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (*.f64 b b)))
(.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 b b)) (/.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 #s(literal 2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 b b))) (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal -2 binary64))) (neg.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) y-scale) #s(literal 2 binary64)) (.f64 y-scale (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (neg.f64 (pow.f64 b #s(literal 4 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 y-scale) y-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(/.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 b b)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal -2 binary64)) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(fma.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 1 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 64 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
(/.f64 (fma.f64 #s(literal -8 binary64) (pow.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 3 binary64)) (.f64 (pow.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 64 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 64 binary64) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 64 binary64) (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))))
(fma.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (+.f64 a b)) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (+.f64 a b)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (+.f64 a b)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (+.f64 a b)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (-.f64 b a) (+.f64 a b)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (-.f64 b a) (+.f64 a b)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) b (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b)) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 b b) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) b) (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b) (.f64 b (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 4 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))
(fma.f64 (pow.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (+.f64 a b)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (+.f64 a b)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 (.f64 b b) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 b (.f64 (.f64 b (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(fma.f64 #s(literal 4 binary64) (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(fma.f64 #s(literal 4 binary64) (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
(-.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))
(-.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64))) #s(literal 4 binary64)))
(-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 #s(literal -4 binary64) (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64))))
(+.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))))
(+.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (pow.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 64 binary64)) (+.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))))))
(+.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(+.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (fma.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64))))
(+.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(+.f64 (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64)))

eval307.0ms (0.7%)

Memory: 3.7MiB live, 443.9MiB allocated; 97ms collecting garbage
Compiler: Compiled 406 156 to 7 803 computations (98.1% saved)

prune1.3s (3%)

Memory

29.1MiB live, 2 011.8MiB allocated; 191ms collecting garbage

Pruning

69 alts after pruning (68 fresh and 1 done)

	Pruned	Kept	Total
New	830	35	865
Fresh	10	33	43
Picked	4	1	5
Done	0	0	0
Total	844	69	913

Accuracy

46.1%

Counts

913 → 69

Alt Table

Click to see full alt table

Status	Accuracy	Program
	1.6%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.1%	(/.f64 (neg.f64 (sqrt.f64 (.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 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.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 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.1%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (-.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 a a)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
	4.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 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale))))
	2.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)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale))))
	4.4%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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.6%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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 (.f64 (.f64 #s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 b b) (.f64 y-scale y-scale))))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	4.0%	(/.f64 (neg.f64 (exp.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (/.f64 (.f64 #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%	(/.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) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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))))
	31.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 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a) (sqrt.f64 #s(literal 2 binary64))) x-scale))
	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) x-scale) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (.f64 #s(literal 1/4 binary64) a)) (sqrt.f64 #s(literal 8 binary64))))
✓	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
▶	16.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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	5.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) x-scale))
	6.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 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) #s(literal 1/4 binary64))) x-scale))
	5.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 b b)))) #s(literal 1/2 binary64))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
	4.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
	2.6%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	4.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
	12.4%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) b)))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) #s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 b b))))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) #s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (*.f64 b b)))))))))
	13.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (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/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))))
	7.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (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/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64)))) (*.f64 y-scale y-scale)))))))))
	16.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 #s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 b (fma.f64 b (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	14.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (*.f64 x-scale x-scale)))))))))
	3.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) x-scale) x-scale)))))))
	4.1%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))))))
	4.1%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a)))))))))
	31.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (*.f64 a a))))))
	7.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
	13.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 6 binary64)) (pow.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)))))))))
	1.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
	9.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
▶	32.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 #s(literal 2 binary64) (.f64 a a))))))
	2.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 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))))
	3.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 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
	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 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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.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 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
	31.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 8 binary64)))))
▶	31.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (* x-scale 4) a) 1/4) (*.f64 a x-scale)))
▶	14.7%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	13.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	14.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	13.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	9.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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
	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))) #s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
	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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))

Compiler

Compiled 49 215 to 15 214 computations (69.1% saved)

simplify191.0ms (0.4%)

Memory

-28.8MiB live, 162.7MiB allocated; 54ms collecting garbage

Localize:

Found 19 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	191	4294
0	262	4292
1	644	4144
2	2858	4115
0	8664	4048

Stop Event

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

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

localize3.8s (8.8%)

Memory

-28.7MiB live, 4 027.6MiB allocated; 1.5s collecting garbage

Localize:

Found 19 expressions of interest:

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

Samples

3.4s	253×	5	exit
88.0ms	3×	4	exit

Compiler

Compiled 3 526 to 177 computations (95% saved)

Precisions

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

ival-cos: 629.0ms (22.1% of total)

ival-sin: 549.0ms (19.3% of total)

adjust: 431.0ms (15.1% of total)

ival-mult: 364.0ms (12.8% of total)

ival-pow2: 208.0ms (7.3% of total)

ival-div: 177.0ms (6.2% of total)

ival-sinu: 108.0ms (3.8% of total)

ival-add: 103.0ms (3.6% of total)

const: 88.0ms (3.1% of total)

ival-sqrt: 76.0ms (2.7% of total)

ival-cosu: 63.0ms (2.2% of total)

ival-sub: 36.0ms (1.3% of total)

ival-pow: 6.0ms (0.2% of total)

ival-pi: 5.0ms (0.2% of total)

ival-neg: 4.0ms (0.1% of total)

exact: 1.0ms (0% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

series542.0ms (1.3%)

Memory

18.4MiB live, 776.4MiB allocated; 68ms collecting garbage

Counts

28 → 338

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

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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* (* x-scale 4) a) 1/4) #s(hole binary64 (* a x-scale)))
#s(approx (* a x-scale) #s(hole binary64 (* a x-scale)))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* a (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* a (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* a (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* a (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (* a (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1/4 (* (* a (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a))) a)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))))))))))) a) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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)) (* 1/4 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a))) a)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* b (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* b (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(hole binary64 0))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* b (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* b (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 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 (* (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (* b (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1/4 (* (* b (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b))) b)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))))))))))) b) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) b) (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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)) (* 1/4 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b))) b)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* a (* (sqrt 2) (sqrt 8))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/4 (* a (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* a (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* a (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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 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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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/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 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 (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (* (* a a) (pow (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 (* (* a a) (pow (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 (* (* a a) (pow (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 a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow a 2) (+ (* 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))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* (pow angle 2) (- (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (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 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))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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 angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (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 (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (cos (* -1/180 (* 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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* 1/4 (* (sqrt 8) x-scale)) #s(hole binary64 (* 1/4 (* x-scale (sqrt 8)))))
#s(approx (* (sqrt 8) x-scale) #s(hole binary64 (* x-scale (sqrt 8))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow x-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a 2) (* (pow x-scale 2) (pow (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 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 (* 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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (* (pow a 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow y-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow a 2) (* (pow y-scale 2) (pow (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
59.0ms	angle	@	inf	((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* 1/4 (* (sqrt 8) x-scale)) (* (sqrt 8) 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))) (* (* (* x-scale 4) a) 1/4) (* 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))) (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 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))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (sqrt 8) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (PI) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* 1/180 (* (PI) angle))) (cos (* -1/180 (* angle (PI)))) (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))
56.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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* 1/4 (* (sqrt 8) x-scale)) (* (sqrt 8) 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))) (* (* (* x-scale 4) a) 1/4) (* 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))) (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 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))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (sqrt 8) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (PI) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* 1/180 (* (PI) angle))) (cos (* -1/180 (* angle (PI)))) (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))
36.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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* 1/4 (* (sqrt 8) x-scale)) (* (sqrt 8) 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))) (* (* (* x-scale 4) a) 1/4) (* 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))) (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 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))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (sqrt 8) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (PI) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* 1/180 (* (PI) angle))) (cos (* -1/180 (* angle (PI)))) (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))
26.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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* 1/4 (* (sqrt 8) x-scale)) (* (sqrt 8) 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))) (* (* (* x-scale 4) a) 1/4) (* 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))) (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 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))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (sqrt 8) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (PI) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* 1/180 (* (PI) angle))) (cos (* -1/180 (* angle (PI)))) (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))
25.0ms	a	@	inf	((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (* 1/4 (* (sqrt 8) x-scale)) (* (sqrt 8) 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))) (* (* (* x-scale 4) a) 1/4) (* 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))) (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 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))) (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (sqrt 8) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (PI) (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (cos (* 1/180 (* (PI) angle))) (cos (* -1/180 (* angle (PI)))) (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))

simplify546.0ms (1.3%)

Memory

32.1MiB live, 728.8MiB allocated; 71ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3359	173157
0	8140	168387

Stop Event

1×	iter limit
1×	node limit

Counts

338 → 338

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(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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* (* x-scale 4) a) 1/4) #s(hole binary64 (* a x-scale)))
#s(approx (* a x-scale) #s(hole binary64 (* a x-scale)))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* a (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* a (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* a (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* a (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (* a (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1/4 (* (* a (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a))) a)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))))))))))) a) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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)) (* 1/4 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a))) a)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* b (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* b (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(hole binary64 0))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* b (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* b (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 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 (* (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (* b (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1/4 (* (* b (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b))) b)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))))))))))) b) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) b) (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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)) (* 1/4 (* (* 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 (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b))) b)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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 (* 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* a (* (sqrt 2) (sqrt 8))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/4 (* a (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* a (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* a (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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 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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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/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 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 (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (* (* a a) (pow (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 (* (* a a) (pow (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 (* (* a a) (pow (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 a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow a 2) (+ (* 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))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* (pow angle 2) (- (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (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 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))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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 angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) #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 (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 (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (cos (* -1/180 (* 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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* 1/4 (* (sqrt 8) x-scale)) #s(hole binary64 (* 1/4 (* x-scale (sqrt 8)))))
#s(approx (* (sqrt 8) x-scale) #s(hole binary64 (* x-scale (sqrt 8))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow x-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a 2) (* (pow x-scale 2) (pow (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 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 (* 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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (* (pow a 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow y-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow a 2) (* (pow y-scale 2) (pow (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))

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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 a a) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 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 x-scale (.f64 (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 (.f64 b b) (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 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.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 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* (* x-scale 4) a) 1/4) #s(hole binary64 (* a x-scale)))
#s(approx (* (* (* x-scale 4) a) 1/4) (*.f64 a x-scale))
#s(approx (* a x-scale) #s(hole binary64 (* a x-scale)))
#s(approx (* a x-scale) (*.f64 a x-scale))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 a x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 a (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* a (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* a (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/8 (* (* a (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 a (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* a (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (+.f64 (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 a (.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* a (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 a x-scale) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 (.f64 b b) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (.f64 y-scale (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 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))))) (* (pow b 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* a (+ (* -1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (* (pow b 2) (* (pow y-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (* (pow b 2) (pow y-scale 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* -1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (* (pow b 2) (pow y-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (* (pow y-scale 4) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 b b)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 a x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (.f64 b b) (.f64 y-scale y-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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(literal 4 binary64) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b b)) (/.f64 (.f64 b #s(literal 0 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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-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 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.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 b b)) (/.f64 (.f64 (.f64 b b) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))
#s(approx (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 a a) (pow.f64 (cos.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)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (+ (* a (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (+ (* -1/2 (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (fma.f64 (.f64 #s(literal -1/2 binary64) a) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 b b) (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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* a (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (+.f64 (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 a (.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* a (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* a (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* a (- (* -1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow b 3)) (* 2 (pow b 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow b 3)) (* 2 (pow b 3))) 2)) (* (pow b 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 a (fma.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 a (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* a (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (pow b 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 a (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* a (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow b 2))) (* a (- (+ (* a (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (pow b 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 a (fma.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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 b b)) (.f64 a (-.f64 (fma.f64 a (.f64 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (.f64 b b)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 a (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (.f64 a (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (* a (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 a (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 a (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 a (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (pow.f64 a #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* a (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (pow a 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 a 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 a (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (pow.f64 a #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a a)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow a 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.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 b #s(literal 0 binary64))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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/2 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 3 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 a (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 a (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (pow a 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 a (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (pow.f64 a #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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 b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (-.f64 (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 b b) (.f64 a a)) (/.f64 (.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 (.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 x-scale 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(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow a 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow a 3) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (sin (* 1/180 (* angle (PI)))) 4))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (-.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)) (.f64 b #s(literal 0 binary64))) a) (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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (pow.f64 a #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 4 binary64) (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.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 (.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 x-scale 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(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (neg.f64 (.f64 a (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))) (neg.f64 (.f64 a (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg.f64 (.f64 a (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-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 2 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 2 binary64))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 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))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1/4 (* (* a (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 a (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.f64 (sqrt.f64 #s(literal 8 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* -1/4 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 a (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) a))) a)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a))) a))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) (* a y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 a (.f64 #s(literal 1/4 binary64) (fma.f64 x-scale (.f64 (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 x-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64)))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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))))))))))) a) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* a (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2)))) (pow y-scale 2)))) (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (* (pow y-scale 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 y-scale 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))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3)))) (pow y-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) a) (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)) (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 b) (* 2 b))))) y-scale) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 a (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 b #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 b b) (.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)) (.f64 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) a) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 b #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) a) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -2 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a))) a)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 a (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) a) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) a))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* a (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 b) (* 2 b)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) a) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 b) (* 2 b)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) a))) a)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 a (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 #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 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (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 (.f64 b #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) a))) a))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) a) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow a 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow b 3)) (* 2 (pow b 3))))) (* 4 (/ (* (pow b 2) (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 b) (* 2 b)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) a)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow b 2)) (* 2 (pow b 2))))) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow b 2) (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) a)) (* 4 (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 b) (* 2 b))))) a)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.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)) (.f64 (pow.f64 b #s(literal 3 binary64)) #s(literal 0 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 b #s(literal 0 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) a) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) a) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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))) #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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (-.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)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (.f64 (/.f64 (.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)) (.f64 (/.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(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) (.f64 #s(literal 1/8 binary64) (.f64 x-scale (.f64 (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) (.f64 (.f64 b b) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale 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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (-.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)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (.f64 (/.f64 (.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)) (.f64 (/.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(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) (.f64 (.f64 (.f64 (.f64 b b) x-scale) (.f64 (.f64 y-scale (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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (-.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)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (.f64 (/.f64 (.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)) (.f64 (/.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(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 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))))) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (.f64 (/.f64 (.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)) (.f64 (/.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(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) #s(literal 3 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (sqrt.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64)))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 b x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 b (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* b (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* b (+ (* -1/4 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/8 (* (* b (* (sqrt 8) (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 b (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* b (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (+.f64 (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 b (.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* b (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 b x-scale) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))))) (.f64 (.f64 a a) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (.f64 y-scale (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 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))))) (* (pow a 2) y-scale)) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* b (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (pow a 2) (* (pow y-scale 2) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (* (pow a 2) (pow y-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (* (pow a 2) (pow y-scale 2))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (* (pow y-scale 4) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 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 y-scale 2)))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale (.f64 a a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 b x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 #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 a a)) (/.f64 (.f64 a #s(literal 0 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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 (.f64 (pow.f64 a #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))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-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 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 y-scale y-scale)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #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 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale 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 4 binary64)) (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 y-scale #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 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.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))) (pow.f64 (sin.f64 (.f64 #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 (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 (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(hole binary64 0))
#s(approx (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(literal 0 binary64))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -2 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 b (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* b (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (+ (* -1/2 (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 b (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.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 a a) (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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* -1 (* (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (neg.f64 (.f64 (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (* (* b (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (+.f64 (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 b (.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (* b (+ (* -1 (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* b (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (* b (- (* -1/2 (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (+ (* -2 (pow a 3)) (* 2 (pow a 3))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (pow (+ (* -2 (pow a 3)) (* 2 (pow a 3))) 2)) (* (pow a 4) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 b (fma.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 b (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.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 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* 4 (/ (* b (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (pow a 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 b (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 b (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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (-.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* b (+ (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow a 2))) (* b (- (+ (* b (- (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (pow a 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 4) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow x-scale 2) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 b (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)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 a a)) (.f64 b (-.f64 (fma.f64 b (.f64 #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 a #s(literal 0 binary64))) (.f64 a a)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 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 (.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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (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(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))) (.f64 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 b (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))) (.f64 b (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (.f64 (/.f64 (.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (* b (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 b (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 b (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 b (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (pow.f64 b #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* b (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) (pow b 3)) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 b 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 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (pow.f64 b #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/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) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* -1/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (pow b 3))) (+ (* -1/2 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) (pow b 2))) (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 #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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 b (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 b (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (+ (* -1 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* 1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (pow b 3)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (pow b 2)) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (.f64 b (+.f64 (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (pow.f64 b #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 b b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (-.f64 (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 a a) (.f64 b b)) (/.f64 (.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 (.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 x-scale 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(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (- (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (+ (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow b 3))) (+ (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (+ (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow b 3) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (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 (cos (* -1/180 (* angle (PI)))) 4))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (-.f64 (fma.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 a #s(literal 0 binary64))) b) (fma.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (pow.f64 b #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 4 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.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 (.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 x-scale 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(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal -1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (neg.f64 (.f64 b (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))) (neg.f64 (.f64 b (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg.f64 (.f64 b (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale 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 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (.f64 (/.f64 (.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)) (.f64 x-scale x-scale)) (/.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))) #s(literal 3 binary64)))))))) (pow.f64 b #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))) #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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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)))))) (-.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 (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 (-.f64 (.f64 (/.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)) (.f64 (/.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(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (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)) (.f64 x-scale x-scale)) (/.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)))))))))) (pow.f64 b #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))) (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 (/.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) (.f64 (/.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))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -8 binary64) (/.f64 (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 (/.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)) (.f64 (/.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))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 #s(literal 1 binary64) (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)) (.f64 x-scale x-scale)) (/.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))))))))) (.f64 b b))) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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)))))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1/4 (* (* b (sqrt 8)) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 b (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (* 1/4 (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.f64 (sqrt.f64 #s(literal 8 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/8 (* (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (* (/ (* (sqrt 8) (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/8 (* (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* -1/4 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a)))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)) (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 b (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b))) b)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (neg.f64 (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b))) b))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* (* 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))))))) (* 1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) (* b y-scale)) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 b (.f64 #s(literal 1/4 binary64) (fma.f64 x-scale (.f64 (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 x-scale b) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64)))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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))))))))))) b) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* -1 (* b (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 2))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2)))) (pow y-scale 2)))) (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (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 (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (* (pow y-scale 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 y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (* 4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3)))) (pow y-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (* (pow y-scale 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))))))) b) (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)) (* -1/4 (* (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (sqrt 8) (+ (* -2 a) (* 2 a))))) y-scale) (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)) (* 1/4 (* (* 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (neg.f64 (.f64 b (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -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 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 4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 a a) (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 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) 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 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 a #s(literal 0 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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 #s(literal 4 binary64) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 a a) (.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)) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) b) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) y-scale)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) b) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (+ (* 2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -2 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a)))) (* -1 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (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/2 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b))) b)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 b (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1/2 (* (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) b) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))) b))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* -1 (* b (+ (sqrt (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))) (* -1 (/ (+ (* -1 (* (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* -1 (/ (+ (* -1/2 (* (/ (- (* -1/2 (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2))))) (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (+ (* -2 a) (* 2 a)) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))) b) (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))))) (* 1/2 (* (sqrt (/ 1 (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2)))) (- (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 4) (pow (+ (* -2 a) (* 2 a)) 2)) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -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)))) 2))))))) b))) b)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (neg.f64 (.f64 b (+.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a #s(literal 0 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (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 (.f64 a #s(literal 0 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))) b))) b))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -4 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.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 a #s(literal 0 binary64))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (- (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (pow a 3)) (* 2 (pow a 3))))) (* 4 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (+ (* -2 a) (* 2 a)))) (pow (cos (* -1/180 (* angle (PI)))) 2)))) b)) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -4 (pow a 2)) (* 2 (pow a 2))))) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))) (/ (* (pow a 2) (* (pow x-scale 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (pow (cos (* -1/180 (* angle (PI)))) 4))) b)) (* 4 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 a) (* 2 a))))) b)) (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.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 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 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))) (.f64 a #s(literal 0 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) b) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) b) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)))) b) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #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))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (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) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))) (fma.f64 (.f64 #s(literal 2 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.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) (.f64 (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal -1/787320000 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (*.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (*.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 x-scale a) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* a (* (sqrt 2) (sqrt 8))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) a) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/4 (* a (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 angle angle) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/4 binary64) a) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* a (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 (sqrt.f64 #s(literal 8 binary64)) a) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (+ (* 1/4 (* a (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* (sqrt 8) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (fma.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (sqrt.f64 #s(literal 8 binary64)) a) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (/.f64 (sqrt.f64 #s(literal 8 binary64)) a) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 angle angle) (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (fma.f64 a (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 angle angle) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 angle angle) a) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (fma.f64 a (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 angle angle) a) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) #s(literal 1/765275040000000 binary64))))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) #s(literal 1/765275040000000 binary64) (.f64 (.f64 angle angle) (.f64 (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) #s(literal -1/347128758144000000000 binary64))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow 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 y-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 y-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 y-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 y-scale 2))))) (pow b 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow y-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2))))) (pow b 2)) (/ (* (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))) (* 1/2 (/ (* (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) (- (+ (* -1/3149280000 (/ (* (pow b 2) (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/4 (/ (pow (- (+ (* -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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2))))))) 2) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-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 y-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 y-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 y-scale 2)))) (pow b 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow y-scale 2)))) (pow b 2)))) (+ (* -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 b 2) (pow y-scale 2)))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 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 y-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow y-scale 2))) (pow b 2))) (* 1/8100 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (pow (- b a) 2))) (* (pow b 2) (pow y-scale 2))))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (* (pow b 2) (pow y-scale 2)))))) (pow b 2)))))))) (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow a 2) (pow y-scale 2)) (* -1 (/ (pow a 2) (pow y-scale 2)))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (.f64 x-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (.f64 (.f64 (.f64 (.f64 angle angle) x-scale) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))))) (.f64 y-scale y-scale)))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (.f64 b b)))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 y-scale y-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal -1/787320000 binary64)) (.f64 b b)))) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 y-scale y-scale))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 y-scale y-scale)) (.f64 b b)) (.f64 #s(literal 1/8100 binary64) (.f64 (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 b b)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 y-scale y-scale)))))) (.f64 b b)))))))) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (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 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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 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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (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 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)))))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-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/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 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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (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 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale))))))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (*.f64 a a))
#s(approx (* (* a a) (pow (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 (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (.f64 angle angle) (.f64 (PI.f64) (PI.f64))) (.f64 a a)))
#s(approx (* (* a a) (pow (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 (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 a a)))
#s(approx (* (* a a) (pow (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 a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (.f64 (.f64 a a) (fma.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 a a)))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (-.f64 (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale))))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow a 2) (+ (* 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))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (-.f64 (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* (pow angle 2) (- (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (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 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))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (-.f64 (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 x-scale x-scale)) (-.f64 (.f64 (.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 angle angle) (-.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))) (.f64 y-scale y-scale))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))) (.f64 y-scale y-scale)))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (PI.f64) (PI.f64))) (.f64 y-scale y-scale)))))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 #s(literal 2 binary64) (.f64 a a)))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal 2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal 2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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 angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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))))))))))))))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal 2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (fma.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64))))))))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (fma.f64 a (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 angle angle) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 angle angle) a) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/2 (/ (* (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/2 (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 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)))))) (* 1/4 (/ (pow (+ (* -1/2 (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (fma.f64 a (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 angle angle) a) (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) (.f64 a a)) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (*.f64 b b))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (+ (* -2 (pow a 2)) (* (pow angle 2) (- (+ (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (pow (+ a b) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- b a) 2)))) (pow x-scale 2))) (/ (* (pow (+ a b) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2)) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (pow b 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) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2)))))) (/ (* (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (* (pow (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))))) (pow b 2))) (+ (* -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 b 2))) (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (- (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2)) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))) (pow b 2))))) (/ (* (pow x-scale 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 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 (+ a b) 2) (pow (- b a) 2))) (pow x-scale 2))))) (pow b 2))) (* -2 (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 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)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b 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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal 1/765275040000000 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) #s(literal -1/765275040000000 binary64))))) (.f64 b b)) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b)))) (.f64 (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b)))))) (.f64 b b)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 b b)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64)))))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) #s(literal -1/787320000 binary64))))) (.f64 b b)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/3149280000 binary64) (.f64 a a)) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) #s(literal 1/3149280000 binary64))))) (.f64 b b)) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))) (.f64 b b))))) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)))) (.f64 (.f64 b b) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64)))) (.f64 x-scale x-scale))))) (.f64 b b)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 b b)) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 a a)) (.f64 (PI.f64) (PI.f64))))) (.f64 b b))))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (* (PI) angle))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #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 (cos (* 1/180 (* (PI) angle))) (+.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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (cos (* -1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(literal 1 binary64))
#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)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#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)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#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 (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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#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)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64)))))
#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)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 #s(literal 1/25194240000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))
#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 (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 (.f64 #s(literal -1/24488801280000000 binary64) (.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 (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#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)))) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.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)))) #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)))) (.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 #s(literal 1/22674816000000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))
#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 (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 (.f64 #s(literal -1/30855889612800000000 binary64) (.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (/.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) (+.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 (cos (* -1/180 (* 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 y-scale 2))) (* 4 (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow (+ a b) 2) (pow (- b a) 2)))) (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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (fma.f64 (/.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) (.f64 (/.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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (-.f64 (.f64 (/.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)) (.f64 (/.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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 b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) #s(hole binary64 (/ (* (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))) (+ (* (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 (+ a b) 2) (pow (- b a) 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))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #s(literal 2 binary64))))) (.f64 x-scale x-scale))))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (cos (* 1/180 (* (PI) angle))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* (PI) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (cos (* -1/180 (* angle (PI)))) #s(hole binary64 (cos (* -1/180 (* angle (PI))))))
#s(approx (cos (* -1/180 (* angle (PI)))) (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 x-scale (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 x-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 x-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 x-scale x-scale) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (.f64 x-scale x-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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (sqrt 8) x-scale)) #s(hole binary64 (* 1/4 (* x-scale (sqrt 8)))))
#s(approx (* 1/4 (* (sqrt 8) x-scale)) (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (sqrt 8) x-scale) #s(hole binary64 (* x-scale (sqrt 8))))
#s(approx (* (sqrt 8) x-scale) (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) #s(hole binary64 (* 1/4 (* (sqrt 8) (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))))
#s(approx (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))
#s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (.f64 (/.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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow x-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (.f64 (/.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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a 2) (* (pow x-scale 2) (pow (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (.f64 a a) (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 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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))))))
#s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.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 (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) #s(hole binary64 (sqrt (+ (* -1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* -1/180 (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -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)))))))
#s(approx (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* 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 (+ a b) 2) (pow (- b a) 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* -1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 x-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (.f64 (/.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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (neg.f64 (.f64 (/.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 y-scale (fma.f64 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))) (.f64 y-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 y-scale (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 y-scale y-scale) (.f64 #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 x-scale (.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #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)) (.f64 (.f64 b b) (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))))
#s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 2) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow y-scale 2))))
#s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a a) (.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))) (*.f64 y-scale y-scale)))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow a 2) (* (pow y-scale 2) (pow (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.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)) (.f64 (.f64 a a) (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 (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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) #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))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))))) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 y-scale #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (fma.f64 #s(literal -1 binary64) (.f64 (/.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)) (.f64 (/.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 (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/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 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 (+ a b) 2) (pow (- b a) 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

rewrite245.0ms (0.6%)

Memory

20.3MiB live, 287.9MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	191	3089
0	262	3011
1	1142	2762
0	8777	2722

Stop Event

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

Counts

28 → 271

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

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

eval331.0ms (0.8%)

Memory: 32.5MiB live, 405.5MiB allocated; 79ms collecting garbage
Compiler: Compiled 349 300 to 6 319 computations (98.2% saved)

prune1.5s (3.5%)

Memory

17.5MiB live, 2 879.2MiB allocated; 177ms collecting garbage

Pruning

69 alts after pruning (66 fresh and 3 done)

	Pruned	Kept	Total
New	666	32	698
Fresh	29	34	63
Picked	3	2	5
Done	0	1	1
Total	698	69	767

Accuracy

50.5%

Counts

767 → 69

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 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.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 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	0.1%	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (-.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 a a)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
	4.0%	(/.f64 (neg.f64 (exp.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) x-scale) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
✓	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
	3.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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	16.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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	16.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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 binary64))))) x-scale))
✓	16.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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	32.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 (.f64 (sqrt.f64 #s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64))) x-scale))
	16.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 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) b) #s(literal 2 binary64))))) x-scale)))
	16.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 (.f64 (exp.f64 (.f64 (log.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) b) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	9.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 (.f64 #s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 b (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	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))) (.f64 (.f64 #s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 a (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	1.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
	32.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 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 binary64))) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 #s(literal 2 binary64) (.f64 a a))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
	4.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
	4.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
	12.4%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) b)))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) #s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (*.f64 b b)))))))))
	16.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 #s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 b (fma.f64 b (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	14.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (*.f64 x-scale x-scale)))))))))
	3.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) x-scale) x-scale)))))))
	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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))))))
	4.1%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 binary64))) a)))))))))
	31.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (*.f64 a a))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
	13.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
	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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
	31.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (exp.f64 (.f64 (log.f64 #s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))))
	2.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 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale))))))))
	6.3%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 a (.f64 a (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) a) #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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (.f64 (/.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(literal 2 binary64))))))))
	5.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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (neg.f64 (.f64 (/.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(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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (sqrt.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.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.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 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
	31.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 8 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 (sqrt.f64 (-.f64 (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (sqrt.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (pow.f64 (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/4 binary64))))
	31.0%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(approx ( (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) a) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) x-scale))
✓	31.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (* x-scale 4) a) 1/4) (*.f64 a x-scale)))
	9.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 (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
	13.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) b)) (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale))))
	14.7%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (.f64 y-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	12.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) (/.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 2 binary64) y-scale)) (cos.f64 (.f64 (*.f64 (PI.f64) angle) #s(literal 1/180 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	13.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 #s(approx (cos (* -1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)))))))))
	13.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 #s(approx (cos (* -1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(literal 2 binary64)))))))))
	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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/180 (* angle (PI)))) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/180 binary64) (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	10.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	6.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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)) #s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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)))))))))))
	5.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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)) #s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)))))))))
	6.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 1 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	13.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	9.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
	32.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(approx (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(literal 0 binary64))))
	14.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

Compiler

Compiled 69 973 to 9 744 computations (86.1% saved)

regimes289.0ms (0.7%)

Memory

-37.1MiB live, 443.6MiB allocated; 42ms collecting garbage

Counts

126 → 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(approx (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(literal 0 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (* x-scale 4) a) 1/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 (.f64 (*.f64 x-scale #s(literal 4 binary64)) a) #s(literal 1/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(approx ( (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) (.f64 (.f64 #s(literal 1/4 binary64) a) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) (sqrt.f64 #s(literal 8 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) x-scale) (.f64 #s(literal 1/4 binary64) a)) (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 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) a) x-scale) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 8 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) a) (sqrt.f64 #s(literal 2 binary64))) x-scale))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 #s(literal 2 binary64) (.f64 a a))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (sqrt.f64 #s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (neg.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) a) (.f64 (.f64 x-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 binary64))) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 #s(literal 2 binary64) (.f64 a a))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (exp.f64 (.f64 (log.f64 #s(approx (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (*.f64 a a))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 #s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 b b) (.f64 y-scale y-scale))))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale y-scale)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.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)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (.f64 (/.f64 (.f64 (.f64 a b) #s(literal 4 binary64)) (.f64 y-scale x-scale)) (/.f64 (.f64 (neg.f64 a) b) (.f64 y-scale x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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)) #s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-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) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (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/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64)))) (*.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)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 2 binary64) y-scale) a) (/.f64 a y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) y-scale)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (/.f64 (.f64 #s(literal 8 binary64) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (/.f64 #s(literal 2 binary64) y-scale) (/.f64 (.f64 a a) 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))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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)) #s(approx (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) #s(literal 1/4 binary64)) (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) b) #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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 #s(literal -2 binary64) (.f64 a a)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (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/2 (/ (* (/ (* (* (pow b 4) (pow (cos (* -1/180 (* angle (PI)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)))) (/.f64 (.f64 (.f64 b b) (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 (sqrt.f64 (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64)) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 #s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a 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 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/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 (.f64 (exp.f64 (.f64 (log.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) b) #s(literal 2 binary64))))) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 binary64)))) x-scale))
(/.f64 (neg.f64 (exp.f64 (.f64 (log.f64 (.f64 (.f64 #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 (/.f64 #s(literal 2 binary64) y-scale) a) (/.f64 a y-scale))) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 8 binary64))) (neg.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (/.f64 (.f64 #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 #s(approx (cos (* -1/180 (* angle (PI)))) #s(literal 1 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))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) b)) (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) #s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (*.f64 b b)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 #s(approx (cos (* -1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/64800 binary64) (.f64 angle angle)) (.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) (/.f64 (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 2 binary64)) y-scale) (/.f64 #s(literal 2 binary64) y-scale)) (cos.f64 (.f64 (*.f64 (PI.f64) angle) #s(literal 1/180 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 #s(approx (* (* b b) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 #s(literal 1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) #s(approx (* (* b b) (pow (cos (* -1/180 (* angle (PI)))) 2)) (fma.f64 (.f64 #s(literal -1/32400 binary64) (.f64 angle angle)) (.f64 (.f64 b b) (.f64 (PI.f64) (PI.f64))) (.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (exp.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a))) (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (* 1/4 (sqrt 8))) x-scale) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 a (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 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 (.f64 #s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (.f64 b (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.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))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.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))) #s(literal 2 binary64)) (.f64 (.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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #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))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 y-scale y-scale))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #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))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/180 (* angle (PI)))) (.f64 angle (fma.f64 (.f64 #s(literal -1/34992000 binary64) (.f64 angle angle)) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/180 binary64) (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) b)) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) b)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (.f64 y-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 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 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 a a)) (/.f64 (.f64 (/.f64 (.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))) (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)) (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 (.f64 #s(approx (sqrt (+ (* (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) -1/2) (+ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (pow (* (sin (* 1/180 (* (PI) angle))) b) 2)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 b b)) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 (pow.f64 b #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))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (.f64 (pow.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (-.f64 (.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 1 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (sqrt.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 8 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (/.f64 (.f64 (.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 6 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 4 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a 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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 b #s(literal 0 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))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (sqrt.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 (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 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) (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)) (.f64 b #s(literal 0 binary64))) a) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (.f64 (/.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(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (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 (- (/ (* (* a a) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* x-scale x-scale)) (/ (* (* a a) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale))) (neg.f64 (.f64 (/.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(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 6 binary64)) (pow.f64 (fma.f64 #s(approx (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 4 binary64)) (.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(approx (/ (+ ( (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))) (.f64 (.f64 a a) #s(literal -2 binary64))) #s(literal -1/2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) 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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 #s(approx (+ ( (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (*.f64 b b)))) #s(literal 1/2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/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 (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)) (.f64 x-scale x-scale)) (/.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) a)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) b)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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 (sqrt.f64 (-.f64 (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (sqrt.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64)))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))) #s(literal 4 binary64) (pow.f64 (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale) #s(literal 1/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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 a (.f64 a (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) a) #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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) y-scale) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) x-scale) (.f64 (.f64 (neg.f64 a) a) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (/.f64 (.f64 b b) y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) y-scale))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal 4 binary64) (pow.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #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 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 8 binary64) #s(literal -1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) (.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 a a) (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 a a) (pow.f64 (cos.f64 (.f64 #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 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 b (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 x-scale (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (.f64 a #s(literal 0 binary64))))) b)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) (-.f64 b a)) (.f64 (+.f64 a b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) #s(literal -2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64))))) (.f64 (.f64 y-scale y-scale) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale))) x-scale))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) 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 (.f64 (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) #s(literal 1/4 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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (.f64 b b) (.f64 y-scale y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (-.f64 b a) (+.f64 a b)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 #s(literal -2 binary64) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64))))) (.f64 y-scale y-scale)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle))) a) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) angle)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.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 (.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(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 (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 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) y-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) y-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a))) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b)))) #s(literal 1/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 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (hypot.f64 (/.f64 (.f64 (.f64 (+.f64 b a) (-.f64 b a)) (sin.f64 (.f64 #s(literal 2 binary64) (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))))) (.f64 y-scale x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) b) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 angle #s(literal 180 binary64)))) a) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (sqrt 8) x-scale)) (sqrt (+ (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (.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)) (.f64 (.f64 b b) (pow.f64 (sin.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)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 (.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 (pow.f64 (+.f64 a b) #s(literal 2 binary64)) (pow.f64 (-.f64 b a) #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)) (.f64 (.f64 b b) (pow.f64 (cos.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)) (.f64 (.f64 b b) (pow.f64 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)) (.f64 (/.f64 (fma.f64 (/.f64 #s(literal 4 binary64) x-scale) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (+.f64 b a) (-.f64 b a)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) x-scale) (.f64 (.f64 #s(literal -2 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 b b))) (.f64 x-scale x-scale)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)))) #s(literal 1/2 binary64))))))) (/.f64 (.f64 #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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (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 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 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (.f64 (.f64 (.f64 b b) (pow.f64 (cos.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 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(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) a) (.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 b #s(literal 0 binary64))) (.f64 y-scale y-scale)))) 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 #s(literal 1/2 binary64) (/.f64 (.f64 (/.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)) #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 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a) #s(approx (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale x-scale)) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 b #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) #s(literal -2 binary64)))) (.f64 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 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) a))) a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sqrt.f64 #s(literal 8 binary64)) x-scale)) (sqrt.f64 #s(approx (+ ( (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* -1/2 (/ (+ (* (/ 4 x-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) x-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b))) (* x-scale x-scale)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 a #s(literal 0 binary64)) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.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)) (.f64 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal -2 binary64)))) (.f64 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 (.f64 a a) (.f64 x-scale x-scale)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (/.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 x-scale 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 a a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) b))) b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (/.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 x-scale x-scale)) #s(literal 2 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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 #s(approx (+ (/ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (* y-scale y-scale)) (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2)))))) (fma.f64 b (fma.f64 b (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale) x-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) angle)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx (- (/ (pow (* (cos (* 1/180 (* (PI) angle))) a) 2) (* y-scale y-scale)) (* 1/2 (/ (/ (+ (* (pow (* (* (* (- b a) (+ a b)) (sin (* 1/180 (* (PI) angle)))) (cos (* 1/180 (* (PI) angle)))) 2) 4) (* (* -2 (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))) (+ (pow (* b (sin (* 1/180 (* (PI) angle)))) 2) (pow (* (cos (* 1/180 (* (PI) angle))) a) 2)))) (* y-scale y-scale)) (+ (pow (* (sin (* 1/180 (* (PI) angle))) a) 2) (pow (* b (cos (* 1/180 (* (PI) angle)))) 2))))) (fma.f64 b (fma.f64 (.f64 #s(literal -1/2 binary64) b) (-.f64 (fma.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 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 (.f64 (.f64 a a) (.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 4 binary64) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 a a)) (/.f64 (.f64 (.f64 a a) #s(literal -2 binary64)) (.f64 y-scale y-scale))))) (.f64 (/.f64 (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 (.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))) (pow.f64 (sin.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.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 a a)) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) #s(literal 0 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a a) (.f64 y-scale y-scale)) (pow.f64 (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 (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 a a)) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (-.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) a) (/.f64 (.f64 b b) a) (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (/.f64 (fma.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) x-scale) (/.f64 (.f64 b b) x-scale) (.f64 (.f64 (neg.f64 b) b) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64) (.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64))))) #s(literal -8 binary64))) (.f64 a a))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 y-scale x-scale) #s(literal 2 binary64)))) #s(literal 4 binary64) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 (PI.f64) angle) #s(literal 1/180 binary64))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/180 binary64) (.f64 (PI.f64) angle))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 a a)))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))

Outputs

#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* (* 1/4 (* (* (sqrt 8) y-scale) x-scale)) (sqrt (- (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)) (* (/ (+ (* (/ 4 y-scale) (/ (* (* (pow (* (+ b a) (- b a)) 2) (pow (sin (* (* (PI) angle) 1/180)) 2)) (pow (cos (* -1/180 (* (PI) angle))) 2)) y-scale)) (* (* -2 (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) (/ (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* b b)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* a a))) (* y-scale y-scale)))) (+ (* (pow (sin (* (* (PI) angle) 1/180)) 2) (* a a)) (* (pow (cos (* -1/180 (* (PI) angle))) 2) (* b b)))) 1/2)))) #s(approx (* (* 1/4 (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (* 1/2 (/ (* (/ (* (pow (cos (* -1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* y-scale y-scale)) 2) (pow (cos (* -1/180 (* angle (PI)))) 2)))))) #s(literal 0 binary64))))

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

Calls

8 calls:

38.0ms	y-scale
33.0ms	x-scale
33.0ms	b
33.0ms	angle
31.0ms	(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))

Results

Accuracy	Segments	Branch
40.6%	3	`(/.f64 angle #s(literal 180 binary64))`
40.6%	3	`(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))`
32.2%	1	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
36.2%	2	`a`
42.3%	2	`b`
40.6%	3	`angle`
39.5%	4	`x-scale`
45.2%	2	`y-scale`

Compiler

Compiled 196 to 97 computations (50.5% saved)

regimes8.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 13 to 41 computations (-215.4% saved)

bsearch200.0ms (0.5%)

Memory

23.3MiB live, 251.1MiB allocated; 38ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
177.0ms	6.537252066184991e-8	1.3861244971586319e-6

Samples

74.0ms	34×	3	valid
59.0ms	40×	2	valid
30.0ms	38×	1	valid

Compiler

Compiled 4 386 to 1 383 computations (68.5% saved)

Precisions

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

ival-mult: 39.0ms (25.2% of total)

ival-pow2: 23.0ms (14.8% of total)

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

ival-cosu: 20.0ms (12.9% of total)

adjust: 19.0ms (12.3% of total)

ival-div: 15.0ms (9.7% of total)

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

ival-add: 5.0ms (3.2% of total)

ival-sub: 4.0ms (2.6% of total)

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

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

simplify61.0ms (0.1%)

Memory

-11.3MiB live, 78.4MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	133	1009
1	368	1009
2	1702	1005

Stop Event

1×	node limit

Calls

Call 1

Inputs

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

Outputs

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

derivations179.0ms (0.4%)

Memory

-13.7MiB live, 143.3MiB allocated; 71ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 009 to 133 computations (86.8% saved)

preprocess44.0ms (0.1%)

Memory: 31.7MiB live, 76.7MiB allocated; 7ms collecting garbage
Remove: (abs b)
Compiler: Compiled 10 840 to 2 240 computations (79.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.8s (4.2%)

sample16.4s (38.2%)

explain2.6s (6%)

preprocess213.0ms (0.5%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify163.0ms (0.4%)

localize658.0ms (1.5%)

series445.0ms (1%)

simplify829.0ms (1.9%)

rewrite191.0ms (0.4%)

eval215.0ms (0.5%)

prune78.0ms (0.2%)

simplify212.0ms (0.5%)

localize1.5s (3.4%)

series976.0ms (2.3%)

simplify872.0ms (2%)

rewrite293.0ms (0.7%)

eval347.0ms (0.8%)

prune1.3s (3.1%)

simplify329.0ms (0.8%)

localize2.4s (5.5%)

series680.0ms (1.6%)

simplify604.0ms (1.4%)

rewrite369.0ms (0.9%)

eval307.0ms (0.7%)

prune1.3s (3%)

simplify191.0ms (0.4%)

localize3.8s (8.8%)

series542.0ms (1.3%)

simplify546.0ms (1.3%)

rewrite245.0ms (0.6%)

eval331.0ms (0.8%)

prune1.5s (3.5%)

regimes289.0ms (0.7%)

regimes8.0ms (0%)

bsearch200.0ms (0.5%)

simplify61.0ms (0.1%)

derivations179.0ms (0.4%)

preprocess44.0ms (0.1%)

end0.0ms (0%)

Profiling